Select Code to Download

#! perl -slw
use strict;
...
    }
}
__DATA__

C:\test>583749
082006|F1150|ABC|KELLY J.       |AAF113|FJO1A|FTO5A|284.0|    1.63| 6,
+688.22|735.0|4.23 |7,296.52
...
082006|F1150|LWR|KIM            |AAF104|FJO1A|FTO5D| 33.0|     .19| 1,
+363.92|127.5| .73 |4,887.53
082006|F1150|LWR|KIM            |AAF104|FJO1A|FTW5E|  5.0|     .03|   
+254.81|  9.0| .05 |  403.18
082006|F1150|LWR|KIM            |AAF104|FJO1A|FTW5G|     |        |   
+      |  1.0| .01 |   37.08