Select Code to Download

use Parse::CSV;
use Data::Dump 'pp';
...
      csv_attr => { binary => 1 },
);
pp $_  while $_ = $parser->fetch; # Print output

"\"Networking Hardware \",\"MDUSR226    \",\"10 Gigabit LR Networking 
+TAP            \",\"USR4516             \",\"USRobotics              
+      \",363.33,454.17,0\r\n\"Networking Hardware \",\"MDUSR227    \"
+,\"Tap Rackmount for 3 units\n              \",\"USR4500-RMK         
+\",\"USRobotics                    \",43.33,54.17,0\r\n"
[
...
  54.17,
  0,
]