Select Code to Download

sub make_rx_from {
    open my $fh, "<", shift or warn("Can't open fromgood $!\n"), retur
+n;
...
my @badwords     = make_rx_from "badwords";
my @frombad      = make_rx_from "frombad";
my @fromgood     = make_rx_from "fromgood";

HEADER: foreach my $line (@$messref) {
    # detects first blank line go do body check of first 10 body lines
...
        last HEADER;
    }
}