open (FH, "$ARGV[0]") or die "couldn't open .RES $! file";
@res=<FH>;
close(FH);

$ARGV[1]="$ARGV[1]_$ARGV[0].txt";

open (RH, ">$ARGV[1]");
$count=0;

foreach $line (@res)
{
  if ($line =~ m/\-\-gnu\s/)
  {
    chomp($line);
    @new = split(" ",$line);
    foreach $n (@new) 
    {
	if ($n !~ m/^$/)
         {
		if ($n =~ m/^$/) { next; }
		if (($n =~ /^\-D(\w\_\=\d)*/) || ($n =~ /^\-U(\w\_\=\d)*/) && ($n !~/^\-I(\w\_\=\d)*/))
         	{
			$count++;
			chomp($n);
			#print "\n$count $n";
			print RH "$count $n \n";
	 	}
	}
    }
 }
  last;
}
close (RH);