Changes to Perl style