my $out = unpack('B*', $str) =~ s/.(.{7})/$1/sgr;     # 5.14+

( my $out = unpack('B*', $str) ) =~ s/.(.{7})/$1/sg;  # 5.6+