use Parse::CSV;
use Data::Dump 'pp';

my $fh = new IO::File('failing.csv', 'r');

my $fail = do { local $/; <$fh> };
pp $fail;	# Print input
$fh->seek(0,0);

$/ = "\r\n";
my  $parser = Parse::CSV->new(
      handle => $fh,
      csv_attr => { binary => 1 },
);
pp $_  while $_ = $parser->fetch; # Print output

##</code><code>##

"\"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"
[
  "Networking Hardware ",
  "MDUSR226    ",
  "10 Gigabit LR Networking TAP            ",
  "USR4516             ",
  "USRobotics                    ",
  363.33,
  454.17,
  0,
]
[
  "Networking Hardware ",
  "MDUSR227    ",
  "Tap Rackmount for 3 units\n              ",
  "USR4500-RMK         ",
  "USRobotics                    ",
  43.33,
  54.17,
  0,
]