#!perl -pn
$_=unpack"u",$_