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


in reply to Greetings.

A varation on your theme...
#!/usr/bin/perl -w $_= '$_ ="g dkk n*s n*x nt*snn**L dm* ";y+a-x+b -y+ ;s~ \*~ $/~ g;p rin t'; s-\s--g;eval;
Len