use strict; use warnings; @==map unpack('B24',pack'V',$_),12580855,16776063,103792,10764419,8561235,856483,1974885; for$"($[..23){$:=$[;for$\($[..6){$:.=substr $=[$\],$",!$[}print pack'B8',$:}print$/;