You can still see the awk influences in Perl.   And for that matter, do not overlook the possibility of using that tool if your purpose is merely to tear-up a file.