Select Code to Download

my @files = glob("./*");
for my $filename (@files) {
...
        rename $filename, $newname;
    }
}

perl -pi.bak -e 's/[^\w\.\t \n]//' <files>