while (my $line = <FILE>)
{
    chomp;  # Or more thorough: $line =~ s/\s+\z//;
    next if !length($line);