$text = '"foo1","foo2","foo3","foo4","foo5","foo6","foo7","foo8","foo9"';

push @comma_elems, $1 while $text =~ /(\S+?,)/g;