Awk to Perl translator