Perl One Liners Explained