while($str=~/(?:^|,)\s*("[^"]{3,}"|[^,]{3,})/gc)