Help for this page

Select Code to Download

Select or download this

 #! perl -slw
use strict;
...

    while <DATA>;

Select or download this

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