For a given sequence of letters, retrieve one random dictionary word starting with each letter

gistfile1.txt

for letter in {h,o,r,s,t}; do grep -i "^$letter.*[^e|en|em|er|et|est|ging]$" /usr/share/dict/ngerman | perl -e '@lines = <>; print $lines [ rand @lines ]'; done

Example output (german):

hinauszögernd
ostafrikanisch
rundend
Scheidewand
Textmaterial

Remove the -i from grep to use a case sensitive search. In german, that leads to nouns being excluded and you end up with mostly adjectives and participles. Example:

haltend
obwaltend
rau
schmeichelnd
tagesaktuell

English example:
> for letter in {h,o,r,s,t}; do grep -e "^$letter.*[^'s]$" /usr/share/dict/american-english | perl -e '@lines = <>; print $lines [ rand @lines ]'; done

handicraft
oath
reliability
schmuck
testified