Cool. Needed some changes to get it working, though.

 s/^\s+//;
 my $Var=(split /\s+/,$_,2)[0] or next;
 next unless ($Var=~/_/o);
[download]

I think leading whitespace stuff broke your script on my system. So I deleted it. The or next is needed to prevent the compiler from whining about undefined variables. Couldn't get my gcc to eat the .c, though. Has something to do with a whole mess of backspaces.

Update: Got it now (at last). By coincedence, all references to the macros are without preceding _, and otherwise they appear just before end-of-sentence ;-) (aka: '.'). So now I have the following code, which compiles if I manually delete one entry that appears to miss in the lib somehow.

 ...
 s/^\s+//;
 my $Var=(split /\s+/,$_,2)[0] or next;
 $Var =~ s/.\010//g;
 next unless ($Var=~/^_/o);
 next if ($Var =~ /\./);
 my $Cvar=lc $Var;
 ....
[download]

Cheers,

Jeroen
I was dreaming of guitarnotes that would irritate an executive kind of guy (FZ)