print "Name        = $data[1]$/";
            print "Color       = $_ $/" for split /\s*,\s*/, $data[2];
            print "Date        = $data[3]$/";
        }
        else {