Meu nome em perl

''=~('(?{'.('^[@.^}'^'.))@*]').'"'.('`@<@@_'^',)_)/}').',$/})')

rodando:
licio@cerebro:~$ perl
''=~('(?{'.('^[@.^}'^'.))@*]').'"'.('`@<@@_'^',)_)/}').',$/})')
Licio
licio@cerebro:~$

:-)

link Perl Name !