#!/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;
for my $index (0..length($string)-1)
{
  my $char=substr($string,$index,1);
  my $char_nr=ord($char);
  print $char if($char_nr>=48 && $char_nr<=57);
}
print "\n";