cat linux.words | perl -e 'while(<>) {if(/^[rgtnaie][rgtnaie][rgtnaie][rgtnaie][rgtnaie][rgtnaie][rgtnaie][rgtnaie][rgtnaie]$/) { %letters = (); chomp; $word = $_; while($letter = chop) {$letters{$letter}++;} if(($letters{'e'} == 2) && ($letters{'t'} == 2) && ($letters{'i'} == 1) && ($letters{'n'} == 1) && ($letters{'g'} == 1) && ($letters{'r'} == 1) && ($letters{'a'} == 1)) {print "FOUND: $word\n"; }}}'