my $input;
{
    local $/ = undef;
    $input = <DATA>;
}
print join '', ( split /^(Header2:)/m, $input, 3 )[ 1, 2 ];