my $input = do { local $/ = undef; <DATA> };

if ( $input =~ /^(Header2:.+)/ms ) {
    print $1;
}