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

##</code><code>##

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