my $c = chr(0xff); my $sum = 0; if ($c) { (ord($c) & 0x01) && ($sum++); (ord($c) & 0x02) && ($sum++); (ord($c) & 0x04) && ($sum++); (ord($c) & 0x08) && ($sum++); (ord($c) & 0x10) && ($sum++); (ord($c) & 0x20) && ($sum++); (ord($c) & 0x40) && ($sum++); (ord($c) & 0x80) && ($sum++); } print $sum;