modify AWK example so that it is not also valid Perl