Given that package Regexp has only one method, you could also just override that method:

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

Or you could override all the methods in the package (which amounts to the same thing), although that's longer than the original code by a character:

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