my @digets = $string =~ /\p{Digit}+/g;