$/=\1;while(<>){$c=($c<<1)+($c>>31)+($x>>2==3?0:ord);$x++}printf"%x",$c