If you don't care about consecutiveness:

$digits = () = 'a1b2c3d4 e5f6g7h8i9' =~ /\d/g;