unpack 'vccc', join'',map{ pack'b*', $_ } unpack 'a14a6a6a6', unpack 'B32', pack 'N', $n;