Select Code to Download

# instead of print "Color =" above, ....

foreach my $color ( split /,/ $data[1] ) {
   print "Color = $color\n";
}