use strict;
use warnings;

my $str = do { local $/; <DATA> };

if ($str =~ m/Remediation Report\n\n(.+?)\n/g){
    print $1, $/;
    while ($str =~ m/\n\n(.*)\n/g){
        print $1, $/;

    }
}

__DATA__
thread-index: AcjoCau17Ri90HMJR8qoukn2A1g7ng==
MIME-Version: 1.0
# rest of data goes here

##</code><code>##

Adobe Flash Player Multiple Vulnerabilities - April 2008 - IE    
Adobe Flash Player Multiple Vulnerabilities - April 2008 - Mozilla/Opera
Adobe Reader/Acrobat 8.1.2 and 7.1.0 Update - Acrobat 7.x