# invoke with /var/lib/mysql/your_database chdir $ARGV[0] @names = <*.*>; foreach (@names) { my $t = $_; if ($t =~ s/\.my([id])/\.MY\U$1/) { rename($_,$t); } }