open IN,"<$file" ;
binmode IN,":utf8"; 
local $/ ;
$str = <IN> ;
($a, $b, $c, $d) = unpack("x5, A2, A10, A1 A2", $str) ;

##</code><code>##

Wide character in print at ./script.pl line 8.