Help for this page
c:> rename.pl .*\.mp3 1(\d\d.*) 4$1
my $inputMask = $ARGV[0]; my $regexSearch = $ARGV[1]; ... print "renamed $oldname to $file\n"; } }