Perl-exercise