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