my ($naehe) = $text =~ /(.{,100}sit amet.{,100})/ or die;
my @suchphrasen = ("sed diam");
for (@suchphrasen) {
  warn "ja!" if $naehe =~ /\Q$_/;
}