#!/usr/bin/perl

open (FILE, "$ARGV[0]");

while (<FILE>) {

	if ($_=~/^(#define\s+\S+)/) {

		print $1, "\n";
	}
}

close (FILE);