Select Code to Download

#!/usr/bin/perl -w

use warnings;
...
        print $out "\r\n";
    }
}

87,30202,05012014,,,,,,,
"Customer Name","Street Address",City,"Station Num","Customer Num","Pr
+emise Num","Point MDQ","Priority Class","Rate Schedule","Consolidated
+ Station Num"
...

"Customer11","123 Main St.",City A,70,902,25,7,2,54
"Customer12","123 Main St.",City A,71,903,72,6,2,54

87,30202,05012014,,,,,,,
"Customer Name","Street Address",City,"Station Num","Customer Num","Pr
+emise Num","Point MDQ","Priority Class","Rate Schedule","Consolidated
+ Station Num"
...

"Customer11","123 Main St.",City A,70,902,25,7,2,54,70
"Customer12","123 Main St.",City A,71,903,72,6,2,54,71