my $cnt = 0;
for my $num ( 0 .. 127 ) {
  $cnt++
    if (    ( $num & 0xc0 ) == 0
         || ( $num & 0x30 ) == 0
         || ( $num & 0x0c ) == 0
         || ( $num & 0x03 ) == 0 );
}

print $cnt;