$i=0; for ($x=0;$x<30;$x++) { $Arbeit[$x]=""; } while ($daten =~ /
(.*)<\/div>/sg) { $tmp = $1; $tmp =~ s/<.*?>//g; print $tmp; if ($tmp =~ /([A-Za-z0-9 öäü.&;-]+)/s) { $Arbeit[$i] = $1; $i++; } }