output.pl

["S", "YBELT HAS A LINE\nFEED IN IT", "00000001", undef]

parsewords.pl

use 5.14.2;
use strict;
use warnings;

use Text::ParseWords;
use Data::Dump qw( pp );

sub csv_split { 
  return [ quotewords ',' , 0, shift ];  
}
# This works because it has the full content 
pp csv_split(qq{S,"YBELT HAS A LINE\nFEED IN IT",00000001,});