Select Code to Download

$ perl -Mstrict -Mwarnings -E '
print q{Random word: };
...
}
print "\n";
'

Random word: qqwe
Input words using only letters in: qqwe
...
aaaaab
Failed on char: a (at position 5)
Random word: ^D