If the attachments always start with a content-type header, try changing your condition to:

    if( my $seq = /Subject/ .. ( /^content-type/i ) ) {
        $content .= $_ if $seq !~ /E0$/;
        last if /E0$/;  ## no point in parsing further
    }
[download]