Select Code to Download

m/(?s:.*)Remediation Report\n\n(.+?)\n|^(.+?)\n/;

while ($str =~ m/($regex)/){
    print $1, "\n";
}