open (NAVI ,"$Ausgabe"); my $sp_line = 0; while (){ if ($_ =~ m/^DPE|^SPE/ ) { $sp_line=1; } if ($sp_line == 1) { if($_ =~ m/^SP/ ) { if ($1 =~ m/Present/) { print "Treffer"; exit (0) } else { print "kein Treffer \n"; exit (1) } } }