#!/bin/sh
perl -i.orig -ple'BEGIN{ $/=undef} $_ = pack 'u', $_' $1

##</code><code>##

#!/bin/sh
perl -i.uu -ple'BEGIN{ $/=undef} $_ = unpack 'u', $_' $1