Select Code to Download

use strict;
use warnings;
...
push @records, map {[m/(\w+:)/, m/(?<=:|,)\s([^,]*,?)/g]} @strings;

print "@$_\n" for @records;

A: Gold, Black, Purple, Blue, Red     
B: Black, Neon Pink, Neon Yellow, Neon Green, Neon Purple, Red, White,
+ Neon Orange, Navy