My $0.02:

perl -e 'for my $d(0..127){
            for (0..3){
               next unless ($d & 3<<($_+$_))==0;
               $count++; 
            }
          };
           print qq|\nCount=$count\n|'
[download]

prints:
Count=160

I also considered using 'grep' instead of the inner loop - but this is somewhat clearer.