Taken from "perl cookbook", use Text::ParseWords; sub parse_csv { return quotewords(",",0, $_[0]; }