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