sub cypher_matches {
sub c{my%h;($j=$_)=~s/./substr"a$a",$h{$&}||=keys%h,1/gse;$j}($_,$a,$n,
$m,@d)=@_;map{y///c<$n|y///c>$m?():do{$c=c;$_,[grep{c eq$c}@d]}}/[^ ]+/g
}