$_ = 'sub _{local $_=shift;y/A-Z/a-z/;y/0-9//d;$_}$_=q{P1R2I3N4T "R0M -F0R"};s/(.*)/_($1)/sexe';
eval;