Reformat Perl code with perltidy