my @term= ("My Cat", "your CAt", "thiS CAT", "THAt caT", "their cAT", "dead cAt", "cAtostrophic cat");

my $search='cat'; 

for ( @term )
{
  s!\b($search)\b!<a href=x>$1</a>!i;
  print $_,$/;
}