$foo = "á";
$foo =~ tr/á/a/;
print "$foo\n";