http://www.perlmonks.org?node_id=1217123 

perl -v|perl -pe's\(?<=r)[l]\x\g;s\(?<=pe)r\\gi;s\p(e)\S$1\gi'

[download]
perl -MO=Deparse -e 'E S I X G S O O D'

Back to Perl Poetry