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


##</code><code>##

 ...
 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;
 ....