foreach (@lines) {   # quelltext @lines eingelesen
	if ($_ =~ /<img/) {
		print $_;
	}
}