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

##</code><code>##

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

##</code><code>##

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