try {
    my $fh = open('asdf');
    while ( my $line = $fh.get ) {
        say $line;
    }
    $fh.close;

    CATCH {
        when /teil der fehlermeldung/ { ... }
        default                       { #[unerwarteter Fehler?] }
    }
}