use Devel::Peek; Dump $durchsuchen; Dummp $suchtext;