in reply to Fetch numbers only

(my $number) = $text =~ /(\d+)/;

In Section Seekers of Perl Wisdom