perl -Mencoding=utf8,STDIN,utf16 -p -e 1