Create a gist now

Instantly share code, notes, and snippets.

["S", "YBELT HAS A LINE\nFEED IN IT", "00000001", undef]
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,});
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment