10 my @l = split //, $in;
12 while ($l[$n] eq 'z') {
16 if ($l[$n] =~ /[hkn]/) {
17 $l[$n] = chr(2+ord($l[$n]));
22 $l[$n] = chr(1+ord($l[$n]));
27 next NUMBER if $in !~ /(.)\1.*(.)\2/;
32 say "prev=$prev now=$l[$_] count $count";
33 if ($prev eq chr(ord($l[$_])-1)) {
34 last if ++$count >= 3;
40 next NUMBER if $count < 3;