if($t =~ m/\bwort\b/i){
  print "Wort ist enthalten...";
}