Perl tidy...