my $string = 'Ich suche ein Zahl 123 oder irgendetwas anderes 23.';
my ($erste_zahl) = $string =~ m/(\d+)/;
printf "Es wurde [%d] beginnend an Position %d bis Position %d gefunden.\n", $erste_zahl, $-[1], $+[1];