Вот так попробуйте:

cat wordlist.txt | perl -ne '/(.*?)(.)$/;print"$1$2$2\n"'