add z-every-line script, first attempt

post-processing/z-every-line.pl

@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $z = 0;
+
+for (<>) {
+	if (/Z(\d+(\.\d+)?)/) {
+		$z = $1;
+		print;
+	}
+	else {
+		if (!/Z/ && /X/ && /Y/ && $z > 0) {
+			s/\s*([\r\n\;\(].*)//gs;
+			print "$_ Z$z $1";
+		}
+		else {
+			print;
+		}
+	}
+}