@colors = $new =~ m/(\[color=.*\])/gi;