my ($first) = split(/,\s*/, $str);