my $str = 'Digits: 123689'; 

print join ',',
       m/(\d)/g 
           for  $str =~ m{Digits: \s* (\d+) }x ;

#prints:
#1,2,3,6,8,9