if (open my $fh, '<',$file) { my $line = <$fh>; if ( $line =~ /Everything is Ok/) { push @errors, "Export von sid $sid OK.\n"; } else { push @errors, "beim Export von sid $sid traten fehler auf.\n"; } close $fh; }