while (<SPAMMESSEGES>) {

##</code><code>##

        my $spam = <SPAMMESSEGES>;