use Text::ParseWords;

sub parse_csv {
    return quoteword(",",0, $_[0]);
}