Select Code to Download

use warnings;
use strict;
...
s!\[color\](.*)\[/color\]!\[blue\]$1\[/blue\]!g for @sentences;
s!\[/?color\]!!g for @sentences;
print for @sentences;

This is  [blue]some text[/blue].
This is a [blue]test oops![/blue]