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