@array1 = $zeile =~ /<Komponente id="1234".*</Komponente>/mg ;
Der "." sollte eigtl neue Zeilen mit einschließen und das "/m" über mehrere Zeilen suchen.
Hint
/m steuert das Verhalten von ^ und $, nämlich \n sind Anker für ^ und $
/s steuert das verhalten von . nämlich, ist \n auch Teil von .
mfg Beat
--
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische