my @array = qw(red blue orange);
$message =~ s///; # subs all occurences of [red]test[/red] or [blue] woot! [/blue].