Select Code to Download

Select or download this

    print STDERR "Filename 1: $filename  \n";    
    my $test = $filename =~ tr{&[]ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûù?!
+;«»()" íóñÑáéóúÁÉÍÓÚ}{___aaaaaacceeeeeeeeiiiiiioooooouuuuuu_________i
+onnaeouaeiou};
    print STDERR "FOO REPLACE: $test \n";
    print STDERR "Filename 2: $filename  \n";

Select or download this

Filename 1: regular-expressions-cheat-sheet áíé-v2.pdf  
FOO REPLACE: 1 
Filename 2: regular-expressions-cheat-sheet_áíé-v2.pdf

Select or download this

my $test = "tegular-expressions-cheat-sheet_áíé-v2.pdf";

$test =~ tr{&[]ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûù?!;«»()" íóñÑáéóúÁÉÍÓ
+Ú}{___aaaaaacceeeeeeeeiiiiiioooooouuuuuu_________ionnaeouaeiou};

print "now: $test \n";

Select or download this

C:\Users\Andy>perl test2.pl
now: tegular-expressions-cheat-sheet_aie-v2.pdf