my ($letter, $integer) = unpack 'c xxx N', $resp;