perl -ne "print join(' ',map{sprintf(qq/U+%04X/,$_)}unpack('U*',$_));" infile.txt