-------------------------------
for ($v = 0; $v < 128; $v++) {
     $bin_num = sprintf("%0b", $v); # This will give me the binary number

     if ($v < 64) {
        $cnt++;   # Because uptil value 63 "dd" is always going to be zero
     } else {
        if ($bin_num =~ /00/) {
            print "\n Coming here if string 00 found for value $bin_num \n";
            $cnt++;
        } else {
            print "\n Coming here if string 00 NOT found for value $bin_num \n";
        }
     }
-------------------------------