my $data = "ABCDEFG";

my ($one, @two, @four);

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

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