$s = 'a,b,"hey, you","str1, str2, str3",end';
push @fields, $1 while $s =~ /("[^"]+"|[^",]+)(?:,|$)/g;
print "$_\n" for @fields;