$string = q(<SmallImage Name="ICBJ0266.bmp" />);
($wert) = $string =~ m|<.*Name="(\d+)"[^>]+>|i;
print $wert."\n\n";