Exercícios de Perl 5