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)";/$_/;
[download]

Soon after, Ron Kimball posted this little beauty :

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

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 } );
[download]

/-\