[quote=sabrina,20.09.2006, 11:39]es soll nach jedem \t\s\:\\ gespalten werden und egal wieviele leerstellen es sind,[/quote]
Damit beschreibst Du jetzt die Ausgabe?

Quote

es darf nur ein ";" zwischen den woertern stehen.

Damit beschreibst Du die Eingabeverarbeitung. Anmerkung: \t ist schon in \s enthalten.

Übrigens wirfst Du die Änderungen an @line derzeit weg.

Wenn das so ist, dann kannst Du zum einen darauf verzichten jedes einzelne "Splitzeichen" zu verarbeiten, zum anderen kannst Du Dir überlegen, auf Split vielleicht auch ganz zu verzichten.

Aber ohne soweit gehen zu wollen, probier so daß Du die Info darüber, wie viele nicht-Wort-Zeichen zwischen den Wörtern stehen ingnorierst. Später willst Du sie na nur durch ";" getrennt ausgeben.

Quote

print $_ for (@lines);

wird zu print join( ";", @lines );

Dann bist Du schon fast am Ziel.