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