Select Code to Download

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

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