sub hexa_triplet { map eval"0x$_",sprintf('%06x',pop)=~/(..)/g }