http://qs1969.pair.com?node_id=292965


in reply to Fun with one keyword

I don't know if Abigail still remembers, but way back in August 2001, he suggested the following JAPH:

BEGIN{$^H=2097152}$_="(?\173\160\162\151\156\164'\112\165\163\164\040\ +141\156\157\164\150\145\162\040\120\145\162\154\040H\141\143\153\145\ +162\012'\175)";/$_/;

Soon after, Ron Kimball posted this little beauty :

''=~("(?{".('}_).} "*}_} }./}(}_ }}_, (}_+}_,*"'& ~'/- + *,+ < + :- /:- << :- @'| ' `` @ `` ` @ ` ` ` ')."})");

provoking me into building a more general way to generate these kind of programs:

use Acme::EyeDrops qw(sightly); print sightly( { SourceString => "Just another Perl hacker,", Print => 1, Regex => 1 } );

/-\