But your unpack routine doesn't seem to work correctly.

It does:

$s = 'a' x 10; 
print join( 'B', unpack '(A1)*', $s ) . 'B';;
aBaBaBaBaBaBaBaBaBaB
[download]

But not with nulls. The template would have to be '(a1)*' in that case.