my $data = q("one"," one,two",3,"a like <A HREF="foo"> b</A>");

my @pieces = split(q(,), $data);