Perl golf

Perl5