Select Code to Download

PERL  -pe "s/\x22//g" output.csv > output2.csv

use Text::CSV;
...
   }
   # original code  had    { $spacer = 1; } I changed this as my input
+.csv file originally had a - but now contains - #  between the Produc
+t code and product description in the input.csv file

"Cust Code","Inv Date","Inv Num","Type","Unit Price","Line Disc","Qty"
+,"Net Amt","Cost Amt","Margin","%","Market Code","",
"ZB101 - # Acme Widget Large 20 inch","","","","","","","","","","",""
+,"",
...
"","","","","","Product Totals:",2.00,64.00,"",64.00,"100.00%","","",
"","","","","","","","","","","","","",


DeviceID,PosTxnID,MobileNumber,Timestamp,PosID,PosUserID,ShopID,Prodco
+de,ProdDescription,ProdDept,ProdGroup1,ProdGroup2,Quantity,Value
,,,,,,,,,,,,,    
...
,,,,,,,,,,,,,    
,,,,,,,,,,,,,    
,,,,,,,,,,,,,

,,,,,,––––––,–––––––––,–––––––––,–––––––––,–––––––,<
,,,,,Product Totals:,3,70.5,,70.5,100.00%,
...
,,,,,,––––––,–––––––––,–––––––––,–––––––––,–––––––,
,,,,,Product Totals:,2,100,,100,100.00%,
,,,,,,,,,,,

DeviceID,PosTxnID,MobileNumber,Timestamp,PosID,PosUserID,ShopID,Prodco
+de,ProdDescription,ProdDept,ProdGroup1,ProdGroup2,Qty,Value
VINT01,112681,,"2018-01-23 00:00",,,2345,ZB101,"Acme Widget Large 20 i
+nch",,,,1.00,23.50
...
BPS01,112679,,"2018-01-23 00:00",,,2345,ZB701,"Acme Widget Circular 20
+ inch",,,,1.00,33.00
RE01,112663,,"2018-01-23 00:00",,,2345,ZB901,"Acme Widget Square 3 inc
+h",,,,1.00,32.00
TB01,112665,,"2018-01-23 00:00",,,2345,ZB901,"Acme Widget Square 3 inc
+h",,,,1.00,32.00

DeviceID,PosTxnID,MobileNumber,Timestamp,PosID,PosUserID,ShopID,Prodco
+de,ProdDescription,ProdDept,ProdGroup1,ProdGroup2,Qty,Value
VINT01,112681,,2018-01-23 00:00,,,2345,ZB101,Acme Widget Large 20 inch
+,,,,1.00,23.50
...
BPS01,112679,,2018-01-23 00:00,,,2345,ZB701,Acme Widget Circular 20 in
+ch,,,,1.00,33.00
RE01,112663,,2018-01-23 00:00,,,2345,ZB901,Acme Widget Square 3 inch,,
+,,1.00,32.00
TB01,112665,,2018-01-23 00:00,,,2345,ZB901,Acme Widget Square 3 inch,,
+,,1.00,32.00

C:\SCRIPTS-PERL>perl inputfilescriptmods.pl
Enter the name of the file to read: input.csv
...
Can't locate object method "getline" via package "input.csv" (perhaps 
+you forgot to load "input.csv"?) at inputfilescriptmods.pl line 36, <
+STDIN> line 2.

C:\SCRIPTS-PERL>

# grab user input..
...
   }
   # Original code  had    { $spacer = 1; } I changed this as my input
+.csv file originally had a - but then started arriving with - #  betw
+een the Product code and product description in the input.csv file