Perl tidy