my ($erste_zahl) = $string =~ m/(\d+)/