Danke für den Code.

Ich habe allerdings in "Intermediate Perl" bisher nur mal reingeschaut. Bis ich diesen Stuff effektiv nutzen kann, halte ich mich an die einfachen Sachen. Wie die regexe's. Ein Top-Feature von Perl. Ich liebe es!

Und dreißig Zeilen Code zu schreiben, wo es auch eine regexe tut, ist jetzt auch nicht so motivierend... ;-)