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