#!/usr/bin/perl
use strict;
use warnings;

my $string="Das ist ein String mit der Zahl 192 darin!";

print qq!die Zahlen in "$string" sind: !;

my $index=0;
while($string=~m/(\d+)/gc)
{
  print $1;
}
print "\n";