#!/usr/bin/perl

open(LOG,"+</etc/spamdomains.txt") || 
           die "Can't open spam file\n";

while (<LOG>){
    unless(/^\s$){
          print;
    }
}
close(LOG);