Help for this page

Select Code to Download


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