Text this: Perl one-liners :