$line =~ s/^\d+//;             # strip leading spaces
    $line = unpack "A*", $line;    # Entferne Zeilenende und Leerzeichen am