# -1, falls nicht gefunden, sonst wird die position zurueckgegeben
if (index(lc($t), lc('wort')) > -1) { 
  print "Wort ist enthalten";
}