my @f = parse_csv1('first,"second","thi,rd","fou""rth"'); print "$_\n" for @f;