perl  that_script < your_file.txt > char_list.txt