my @matches = '1 foo 22 bar 3' =~ /\d+/g;
print "@matches";

##</code><code>##

1 22 3

##</code><code>##

while (my $match = '1 foo 22 bar 3' =~ /(\d+)/g) {
    print "$1 ";
}

##</code><code>##

my @matches = '1 foo 22 bar 3' =~ /^\d+/g;
print "@matches";