my $s = "   the quick red fox jumped over the lazy brown dog   ";
$s =~ s/^\s+//;
$s =~ s/\s+$//;
$s =~ s/(brown|red)/color/g;
print "<$s>\n";

##</code><code>##

<the quick color fox jumped over the lazy color dog>