Select Code to Download

 #! perl -slw
use strict;
...
127   Stella Somethinglong   2345   Petersburg   New service   Single 
+  23456   1330.00
128   Sandra    4567   Elm Street   Replacement   Three   23445   4800
+.00
129   Tessa Barry  2345   Bakersville   New service   Single   37456  
+ 1330.00

C:\test>816705
Receiptno. Consumer name           Consumer no. Subdivision     Type o
+f work     Phase     Cheque no.   Amount
127         Stella Somethinglong    2345         Petersburg     New se
+rvice      Single     23456       1330.00
128         Sandra                  4567         Elm Street     Replac
+ement      Three      23445       4800.00
129         Tessa Barry             2345         Bakersville    New se
+rvice      Single     37456       1330.00

 #! perl -slw
use strict;
...
128   Sandra    4567   Elm Street   Replacement   Three   23445   4800
+.00
129   Tessa Barry  2345   Bakersville   New service   Single   37456  
+ 1330.00

C:\test>816705
Receiptno. Consumer name           Consumer no. Subdivision     Type o
+f work     Phase     Cheque no.   Amount
...
128         Sandra                  4567         Elm Street     Replac
+ement      Three      23445       4800.00
129         Tessa Barry             2345         Bakersville    New se
+rvice      Single     37456       1330.00
Total: 7460