Perl tricks