Select Code to Download

"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N","",1,"C",710.964086349999,710.964086349999,710.964086
+35,,,2.45938,,,,"R" 
"fred1234","bedrock quary","L","t","G1150G111","","2763958","BMG1150G1
+116","ACN","ACCENTURE LTD-CL A","USD","USD","SB7",19610718,19610718,2
+25212,"ACN UN","ACN.N","",1,"C",-699.4375011625,-699.4375011625,-699.
+4375011625,,,2.45938,,,,"R" 
...
fred1234,bedrock quary,L,t,01741R102,,2526117,US01741R1023,ATI,ALLEGHE
+NY TECHNOLOGIES INC,USD,USD,SB7,19610718,19610718,225212,ATI UN,ATI.N
+,,1,C,-655.71107175,-655.71107175,-655.71107175,,,2.45938,,,,R 
fred1234,bedrock quary,S,t,018804104,,2017677,US0188041042,ATK,ALLIANT
+ TECHSYSTEMS INC,USD,USD,SB7,19610718,19610718,225212,ATK UN,ATK.N,,1
+,C,314.388352562499,314.388352562499,314.3883525625,,,2.45938,,,,R 
fred1234,bedrock quary,S,t,019589308,,2039831,US0195893088,AW,ALLIED W
+ASTE INDUSTRIES INC,USD,USD,SB7,19610718,19610718,225212,AW UN,AW.N,,
+1,C,538.672694612502,538.672694612502,538.6726946125,,,2.45938,,,,R

use Text::CSV_PP;
...
print "--new line--\n";
}  #while

"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N","",1,"C",710.964086349999,710.964086349999,710.964086
+35,,,2.45938,,,,"R" 
~~
...
$VAR30 = '';
$VAR31 = 'R ';
--new line--