>perl -wMstrict -le
"use 5.010;
 ;;
 use List::MoreUtils qw(part);
 ;;
 my $rx = qr{ \b ([[:alpha:]]+ (\d+)) \b }xms;
 ;;
 for my $s (
   'foo abc333 bar de4444 baz fghi22 xyzzy jk123 z',
   'zzz123 xx yyyy12 xx xx1234',
   ) {
   if (my @matches = part { state $i = 0;  $i++ % 2 } $s =~ m{ $rx }xmsg) {
     print qq{matched: full (@{$matches[0]}); digits (@{$matches[1]})};
     }
   else {
     print 'no matches';
     }
   }
"
matched: full (abc333 de4444 fghi22 jk123); digits (333 4444 22 123)
matched: full (zzz123 yyyy12 xx1234); digits (123 12 1234)