$input='Cat cat';

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

print $input;
#output
#<span class="topic">Cat</a> <span class="topic">cat</a>