for $string (@header2){
  	if ($found) {
  	    if ($string =~ s{ .* \*/ }{}x) {
  	    	 $found = 0;
  	    	 push @neu, $string;
  	    }
  	 }
  	 else {
  	 	if ($string =~ s{ /\* .* }{}x) {
  	 		$found = 1;
  	 	}
  	 	push @neu, $string;
  	}
  }