Perl::Tidy code