#!/opt/perl/bin/perl 

use strict;
use warnings;

use 5.010;

my $str = 'Digits: 123689';

if ($str =~ m{Digits: \s* (?<digit>\d)+ }x) {
    say 'Digits: ', join(', ', @{$-{digit}});
}

##</code><code>##

Digits: 9

##</code><code>##

(?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)?