Select Code to Download

 
$term=cat;
$newterm="<a href=x>$term</a>";
$text=~s/(\W)$term(\W)/\1$newterm\2/i;