$out = unpack('B*', '4B') =~ s/.(.{7})/$1/gr;