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


##</code><code>##

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

##</code><code>##

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

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

print "now: $test \n";

##</code><code>##

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