Help for this page

Select Code to Download

Select or download this

data

...
D20658SY3   CX0001D20658SY3         014105646              7281466DE00
+01135192  
D20658SY3   CX4001                                                    
+          
D20658YB6   CA000120060725D20658YB6   C  00000000  A

Select or download this

I get lost trying to figure out how to count unique fields#1 and print
+ out in chunks

...
   print "$rec => $buf{$rec}";
}