my $isA = $sender eq "sender A";
my $isSpam = $subject =~ /\[SPAM\]/;
my $hasSig = $body =~ /^--/;
...