while(<DATA>) {
    if (m/<ORIG DATA ABOVE MUNGE BELOW>/) {
        $munge .= $_ while <DATA>;  # slurp
    } else {
        $orig .= $_;
    }
}