Perl hacks