Magnifique :

 ''=~('(?{'.('_^@@+~'^'/,)._^').'"'.('+@_+@_@%|'^'_/*_/*.@^').',$/})')

Vous aussi générez votre Perl Name :). Pour voir le résultat, lancer perl, copier le code et faire CTRL+D.

Update : le mode Wiki de dotclear avait mangé mon perlname, voila qui est corrigé