1 files changed, 3 insertions, 2 deletions
diff --git a/utils/post-processing/z-every-line.pl b/utils/post-processing/z-every-line.pl
index 5f9d311b6..49d5f4502 100755
--- a/utils/post-processing/z-every-line.pl
+++ b/utils/post-processing/z-every-line.pl
@@ -1,11 +1,12 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -i
 
 use strict;
+use warnings;
 
 my $z = 0;
 
 # read stdin and any/all files passed as parameters one line at a time
-for (<>) {
+while (<>) {
 	# if we find a Z word, save it
 	$z = $1 if /Z(\d+(\.\d+)?)/;