Perl script to collect difficult foreign-language vocabulary from text files or movie subtitles