{
    local $/ = undef;
    $_ = <>;
}

my @mails = split /\nFrom .*\n/m;