Question : perl, using parse_line to delimit by comma, but keep the double-quotes

I use parse_line to split a string based on comma (I don't have CSV library and do not want to install it), but I want to keep the double quote.  

use Text::ParseWords;

my $mystring = "one, two, \"three\", four";
my $delim_char = ",";
my $delim_string = "\\s*$delim_char\\s*";
my @fields = &parse_line($delim_char,0,$mystring);
print join("\n",@fields),"\n";

Answer : perl, using parse_line to delimit by comma, but keep the double-quotes

Put a 1 for the $keep variable (2nd parameter)

man Text::ParseWords explains the syntax of the below

my @fields = &parse_line($delim_char,1,$mystring);