10 truques para one-liners em Perl