Select Code to Download

$/=\108;
($/) = (<> =~ /^.{105}(.?\r?\n?)/);
seek ARGV, 0, 0;

# Look ahead into the file for the ISA segment and the few characters 
+which
#    follow it, so that we can determine the segment terminator charac
+ter(s).
...
# since we peeked ahead into the file, to determine *how* to read it, 
+now
#    seek back to the beginning of it, so that we can read it (all) co
+rrectly
seek ARGV, 0, 0;

#!/bin/sh

...
fi

perl -l -$looptype -e 'BEGIN{$SIG{PIPE}="exit"; $|=1; $/=\108; ($f,$c,
+$/)=(<> =~ /^ISA(.).{100}(.)(.?\r?\n?)/); ($f,$c)=("\Q$f","\Q$c"); se
+ek ARGV,0,0; $.=0}' -F'/$f/' "$@"

$ x12cat -ne 'print if /^GS/' some_file.x12

$ x12cat -ane '$paid += $F[4] if $F[0] eq "CLP"; END{print $paid}' som
+e_835_file.x12

------------
:Wq
Not an editor command: Wq