$zeichenkette =~ /.*(\d+).*/;
$zahl = $1;