Help for this page

Select Code to Download


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