对于小文本，直接在vim中处理就可以。

删除空行

:g/^$/d

删除空行以及只有空格的行

:g/^\s*$/d

判断是否为非空行

而不是判断是否为空行

######input start ###############
open FH,"sander_energies.tab";
my @mmenergies=<FH>;
chomp(@mmenergies);


my $end;

while(1)
{
   $end=pop @mmenergies;

   if($end=~/\S/)
   {
       push @mmenergies,$end;
       last;
   }
   
   
}    

close(FH);