if(open FILE, '<' .$file)
{
        while (<FILE>) {
                if (/OFFLINE/) {
                        push @errors, "TABLESPACE OFFLINE ($!)\n";
                } else {
                        push @errors, "ALLE TABLESPACES ONLINE ($!)\n";
                }
        }
        close FILE;
} else {
        push @errors, "Datei der Datenbank '$file' konnte nicht geöffnet werden($!)\n";
}

if(open FILE, '<' .$file) {
        while (<FILE>) {
                my ($datafile, $value)= split ';' , $_;
                if (my $value < "1") {
                        push @errors, "Es wurden $value extents in $datafile verursacht ($!)\n";
                } else {
                        push @errors, "es wurden keine extents verursacht ($!)\n";
                }
        }
        close FILE;
}
else {
        push @errors, "File $file konnte nicht geöffnet werden ($!)\n";
}