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