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

##</code><code>##

12 23