@prods = split(/\s[^\n]+\n/, $prod);