$text =~ s[\b([Cc]at)\b][<span class="topic">$1</a>]g;