$has_field2 =~ s/field1:[\n]*\n\K(?!field2:).*(?=\nfield3:)
                /field2: valueB
                /msx;