my @konfig = <FH1>;
foreach $zeile (@konfig) {
   if ( $zeile =~ $string1 ){
      print $zeile;
      }
    }