История изменений

use strict;
use warnings;
use autodie qw(opendir closedir rename);
use File::Spec qw(catfile);

my $path = @ARGV[0];

opendir my $dir, $path;
while (my $name = readdir $dir) {
    if (my ($new_name) = $name =~ m{(\d\d\.mp3)$}i) {
        rename
            catfile($path, $name),
            catfile($path, $new_name);
    }
}
closedir $dir;

use strict;
use warnings;
use autodie qw(opendir closedir rename);
use File::Spec qw(catfile);

my $path = @ARGV[0];

opendir my $dir, @ARGV[0];
while (my $name = readdir $dir) {
    if (my ($new_name) = $name =~ m{(\d\d\.mp3)$}i) {
        rename
            catfile($path, $name),
            catfile($path, $new_name);
    }
}
closedir $dir;