use strict;

open(LOG,"+</etc/spamdomains.txt") || die "Can't open spam file\n";
my @lines = grep {!/^$/} <FILE>;
close(LOG);
print @lines;