recap Perl