my $text = 'This test creates a [color=blue] blue [/color] word. And a [color=red] red [/color] one';

##</code><code>##

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

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

print @colors;

##</code><code>##

[color=blue]
[color=red]