[zlsinfra] Morse code training sentences

tit mime tatami ante sai insomnia renne taskers tawtie aureate rewinder gourdes omadhaun cheats obsessed orle fellatio theave justness rectory quakily sped exaction grazings

it emmet tam mien mannites enoses retints kier twaite uruses adenine sortings takhi craig unbanked recaller raffled vacaturs dojos yawn maroquin calpack exhalant prizeman

it time meta anana seises noes meneers anoraks waesome outturn indrises redating torah neocon baggit ulikons fluffed hivers jammable babydoll aquafer plinker outboxes mazy

#!perl -w ($letters="et im an so rk wu dg hc blfv jyq pxz") =~ s/ //g; @q=split //,$letters; for(0..$ARGV[0]){ $current=shift@q; $all.=$current; } $all='^['.$all.']+$'; $current='['.$current.']'; open FI,'/usr/share/dict/words' or die; while(<FI>){ next if (length$_)>9; next unless (m/$current/ and m/$all/); print; }