Nein, HANS, DAMPF und GASSE sind gottseidank konstant und unique.

An einer Zeile verzweifel ich gerade:
last if eof($INPUT_DATEI) or $hansLine !~ /\A HANS (\d{4}) (\d+) /x;

Was ich daraus verstehe:

Schleife verlassen, wenn Ende der Datei erreicht oder die Zeile nicht mit HANS beginnt...was bedeutet der Rest?