nebenbei: mit index kannst du eine zeichenkette in einer anderen suchen, siehe perldoc -f index ... ich glaube, dann sparst du dir die inneren substr-schleifen