$s = unpack "xA*", $s;

$s = substr($s, 1);

substr($s, 0, 1, "");