$string = 'das hat 30 Buchstaben';
my ($zahl) = $string =~ /(\d+)/;
print $zahl; # ergibt die 30