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