Select Code to Download

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

if ($isA && $isSpam && $hasSig) {
    blowRaspberry($sender);
} elsif ($isA && !$isSpam) {
    sendThankyou();
} ...