m/(?s:.*)Remediation Report\n\n(.+?)\n|^(.+?)\n/; #### while ($str =~ m/($regex)/){ print $1, "\n"; }