#!/usr/bin/perl

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

    while ($nclean = <LOG>){

         $nclean =~ s/^\s*(.?)\s*$/$1/;
         chomp $nclean;

         print "$nclean\n";
        }
close(LOG);