use Text::ParseWords;

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