You can do overlapping fields with unpack.

my $data = "123";
my @data = unpack "A2X1A2", $data;
print "@data";
[download]

This prints

12 23
[download]