my $string = 'In Diesem 1en String sollen mehr als 10 Zahlen vorkommen.'.
             '2 Zahlen habe ich schon geschrieben. 4 sind mir zu viele.';

print "Nr:    Zahl: Begin:  Ende:\n";
print "--------------------------\n";

my $num = 1;
while ( $string =~ m/(\d+)/g ) {
    printf "%3d %8d %6d %6d\n", $num++, $1, $-[1], $+[1];
}