my ($first) = $str =~ /(.*?),/;