Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl-Tw
use strict;
...
   print $subitem,"\n";
   }
   }

Select or download this

"PER"
"A1" "Denise Johnson" "red,orange,yellow,green,blue,purple" 09/25/2001
...
"ADR"
"A2" "111 E Dogwood St NO 1" "Pittsville" "WA" 46758 4 8
"EOS"