if(open FILE, '<' .$file) { while () { 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"; }