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