Clearup code, Perl::Tidy, Perl::Critic