Perl One-Liners 101