qr;;for qq$Just another Perl hacker,\n$;package
Regexp;sub DESTROY{print}

##</code><code>##

qr;;for qq$Just another Perl hacker,\n$;package
Regexp;BEGIN{$_=sub{print}for values%{__PACKAGE__.::}}