Awk to Perl translator
