my @ar = split /,(?!\s), $str;