Perl tidy.