use Mosche;
push @bild, $article =~ m/<IMG SRC="(.*?)"/>/g;
bloss leuchtet mir nicht ein, warum sie funktioniert, wäre also auch nicht drauf gekommen. =~ gibt ja bloss wahr oder falsch zurück (und speichert dies in @bild). der wert von (.*?) wird ja in $1 gespeichert; der wird jedoch nirgendwo abgegriffen.
Bei m// wird im Array-Kontext eine Liste mit dem Inhalt von $1, $2, ... zurückgegeben.
($1, $2, $3, ...) = $article =~ m/...(.*?).../;
Hier wird dieser Array an @bild hinzugefügt.
Mehr dazu siehe in 'perldoc perlre'.
use Tschoe qw(Matti);