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

##</code><code>##

How [red]much would[red] could a wood [blue]huck chuck[blue]. If a [red]wood chuch could chuck[/red] wood? All the wood that peter pan is made of.