my $seen = 0;
while ( my $line <$fh> ) {
  if ( $seen == 0 && $line =~ m{stichwort) ) {
    $seen=1;
  }

  if ( $seen == 1 ) {
    # aktuelle Zeile und den ganzen Rest ausgeben
    print $line, <$fh>;
  }
}