perl -lane '$h{"--$F[2]-$F[3]-$F[4]--$F[6]"}++ if /^From /;  /
                END{print $_, "\t", $h{$_} for keys %h}' SPAM-mbox