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