Select Code to Download

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