Select Code to Download

use warnings;
use strict;
...
my @unpacked = unpack 'A1 x2 A1 X2 A1', $str;

print "@unpacked";

1 4 3