Perl one-liners