$output =~ s#>(.*)($_)(\W)?(.*)<#$1<span style=\"color: red;\">$1$2$3$4</span>#gi;