Select Code to Download

while ($w =~ /((.)(\2{7}|\2{3}|\2))/sg) {
   ... do something ...
}

#!/usr/bin/perl
use strict;
...
        print "repeat: $hex ($bytes) pos:", pos($w)-length($bytes), "\
+n";
    }
}