Why not combine the various answers in this thread? :)

my @digits = grep /\d/, split //, substr($str, 0, $len);

However, I'd probably do

my @digits = substr($str, 0, $len) =~ /\d/g;

ihb