Help for this page

Select Code to Download


  1. or download this
    my $isA = $sender eq "sender A";
my $isSpam = $subject =~ /\[SPAM\]/;
my $hasSig = $body =~ /^--/;
...
  2. or download this
    if ($isA && $isSpam && $hasSig) {
    blowRaspberry($sender);
} elsif ($isA && !$isSpam) {
    sendThankyou();
} ...