modify AWK example so that it is not also valid Perl

This can be confusing when the choices are just Perl and AWK. :-) I knew the expected answer having seen the "use strict; ..." code in another question.