Select Code to Download

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

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

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