Nome in Perl

Ah il Perl, il mio primo amore ed il motivo principale per aver iniziato a scrivere in PHP… d’altronde come si fa a manterenere un codice che permette certe magie (in senso buono)?

''=~('(?{'.('_^)@_`'^'/,@.+@').'"'.(']+@@/_'^';^,,@}').',$/})')
da eseguire in una shell perl

per generare anche voi una stringa con il vostro nome offuscato andate qui.

[via Conundrum]

ciuaz