Select Code to Download

#! / usr/bin/perl -w
use Text::Wrap qw(wrap);
...
close (OUTFILE);

ISA*00*          *00*          *28*9000000454     *ZZ*J00370         *
+070926*0342*U*00401*000489661*0*P*:~
GS*HP*9000000454*J00370*20070926*03421826*489660*X*004010X091A1~
...
BPR*I*6519.36*C*ACH*CCP*01*075906003*DA*00001949
17*1351840597*00454    *01*021000021*DA*304677450*20070926~
TRN*1*EFT2545408*13