my @digits = ($input =~ m/\d/g);