HI!
RegExp sind meine Freunde - Allerdings hab ich gerade kein Perl zur Hand um meinen Versucht Testen zu können, aber das folgende sollte im schlimmsten Fall einen guten Ansatz und im Besten Fall eine Lösung liefern:
/<IMG .*?>/
bin mir nicht sicher, ob man < > wirklich codieren muss.
was allerdings wichtig ist, und in sehr vielen implementierungen der regexp fehlt, ist die möglichkeit aus einem "gefräsigen" RegExp einen "nicht gefräsigen" zu machen. Das geschieht durch das ? nach dem .*
Ohne dem ? würde der RegExp so lange suchen, bis er das letzt > findet, was in deinem Fall <img ...></a> liefern würde.
Wie gesagt, Perl kennt das ? und somit sollte das oben genannte mehr oder weniger funzen.
Liebe Grüße
fredy