Select Code to Download

for (@files) {
   my $copy = $_;
   substr($_,0,rindex($_,".")) =~ tr/./_/;
   print "Change: $copy to $_\n";
}