#               s/rcvtime=[0-9]+//;
#               s/sndtime=[0-9]+//;
#               s/msgtext//;
#               s/FRM//;
#               s/3a[a-z,[A-Z]+//;

##</code><code>##

#!/usr/bin/perl -w
use strict;
open(SPAMMESSEGES, "spammessages");
while (<SPAMMESSEGES>) {
        my $spam = <SPAMMESSEGES>;
        my @spammer = split (/:/);
                foreach (@spammer) {
                if (/[Ss]hare/, /[Tt]ime/) {
#               s/rcvtime=[0-9]+//;
#               s/sndtime=[0-9]+//;
#               s/msgtext//;
#               s/FRM//;
#               s/3a[a-z,[A-Z]+//;
                s/rcvtime(.*)\SBJ>//;
                print $_;
        }
}
}