use strict;
use warnings;
use Data::Dumper;

my $doc  = 'hhh123 bbb 45 abc 999';
my @nums = $doc =~ /\d+/g;
print Dumper(\@nums);

__END__

$VAR1 = [
         '123',
         '45',
         '999'
       ];