my $str = 'Digits: 123689 abc';
if ($str =~ m{Digits: \s* (\d)+ \s+ (\w+) }x) {
 print 'Digits: ', $1, ' ', $2, $/;
}
__OUTPUT__
Digits: 9 abc