#!/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: !;

for my $char (split(//,$string))
{
  my $char_nr=ord($char);
  print $char if($char_nr>=48 && $char_nr<=57);
}
print "\n";