Hallo Jörk,
Ich hätte da folgendes Anzubieten:
while($_ =~ /<[^>]+?\s+)(?:alttitle)="(.*?)"[^>]*>/igo) { $stringa .= "$1 " if($1); }
!
und hier die Lösung - war eine Klammer zuviel bei Dir ...
while($_ =~ /<[^>]+?\s+(?:alttitle)="(.*?)"[^>]*>/igo) { $stringa .= "$1 " if($1); }
Vielen Dank,
Günter
(und wieder einmal hat sich dieses Forum aufs Beste bewährt)