Select Code to Download

use warnings;
use strict;
...
eval "\$str =~ tr/$xlateU{$_}/$_/;" for keys %xlateU;

print $str;

Les naifs ægithales hatifs pondant a Noel ou il gele sont surs d'etre 
+decus et
de voir leurs droles d'œufs abimes