@prods = map({/(\S+)/} split(/\n/, $prod));

##</code><code>##

@prods = split(/\n/, $prod);
foreach my $line (@prods){
	$line =~ s/^\s*(\S+).*$/$1/;
}

##</code><code>##

@prods = ($prod =~ m/(?:\A|\n)\s*(\S+)/g);