use strict; use warnings; open (my $in,"<", "/tmp/logbook.log") or die "can not open datei: $!"; my @errors = grep /error/i, <$in>; my $file = '/tmp/ok.txt'; open my $out, ">", $file or die "Kann Datei $file nicht zum Schreiben oeffnen: $!\n"; if (@errors) { print $out @errors; } else { print $out "OK!\n"; } close($in); close($out);