#!/usr/bin/env perl

use strict;
use warnings;

while (<DATA>) {
    my (undef, $def, $val) = split;
    print "$def\n" if ! $val or $val eq '1';
}

__DATA__
  #define thread 1
  #define flag
  #define code 0
  #define const (100/5)
  #define flag_condn 1

##</code><code>##

$ pm_define_extract.pl
thread
flag
code
flag_condn

##</code><code>##

    print "$def\n" if ! $val or $val =~ /^0|1$/;