($char) = $string =~ /^.{4}(.)/;
($char) = unpack("x4 A1",$string);
($char) = substr($string,4,1);