my ($color,@colors);
my $new = $text;

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

print @colors;