in reply to Unable to unpack a hex string

my @x = unpack('(a3)(a3)(a2)(a)(a)(a)(a2)(a3)aaaaa(a11)', unpack 'B*',
+ pack('H*', 'a0000001'));

[download]

In Section Seekers of Perl Wisdom