(@two[0..1], @four[0..3], $one) = unpack "C1 C4 C", $data;

print "@two | @four | $one";    # 65 66 | 67 68 69 70 |