Convert filenames from upper to lower case, strip out parens and apostrophes

cleanmp3.pl

#!/usr/bin/perl
foreach $argnum (0 .. $#ARGV) {
   $tmp = $ARGV[$argnum];
   $ARGV[$argnum] =~ tr/A-Z/a-z/;
   $ARGV[$argnum] =~ s/\(//g;
   $ARGV[$argnum] =~ s/\)//g;
   $ARGV[$argnum] =~ s/\'//g;
   print "$tmp\n";
   system("mv \"$tmp\" \"$ARGV[$argnum]\"");
}