Help for this page
open IN,"<$file" ; binmode IN,":utf8"; local $/ ; $str = <IN> ; ($a, $b, $c, $d) = unpack("x5, A2, A10, A1 A2", $str) ;
Wide character in print at ./script.pl line 8.