Select Code to Download

my $string = '1 Cat 2 Dogs 3 Hamsters';
my @a = $string =~ m/\b\d+\s+\w+\b/g;
use Data::Dumper; print Dumper \@a;
...
          '2 Dogs',
          '3 Hamsters'
        ];

my $string = '1 Cat 2 Dogs 3 Hamsters';
my @a;
push @a, $1 while $string =~ m/(\b\d+\s+\w+\b)/g;
...
          '2 Dogs',
          '3 Hamsters'
        ];