$ cat binary_snr.pl 
#!/usr/bin/perl
use strict;
use warnings;

my $binstr = join("", map { chr($_) } 0 .. 20);

my $search_1 = join("", map { chr($_) } 7 .. 11);
my $repl_1   = join("", map { 'A' }     7 .. 11);

if ($binstr =~ s/$search_1/$repl_1/) {
	print "Fixed first one\n";
}

print join(" ", map { ord($_) < 32 ? sprintf "0x%02x", ord($_) : $_ }
		split /|/, $binstr), "\n";

$ perl binary_snr.pl
Fixed first one
0x00 0x01 0x02 0x03 0x04 0x05 0x06 A A A A A 0x0c 0x0d 0x0e 0x0f 0x10 0x11 0x12 0x13 0x14

$