Help for this page
$has_field2 =~ s/field1:[\n]*\n\K(?!field2:).*(?=\nfield3:) /field2: valueB /msx;
c:\@Work\Perl\monks\Zu>perl -wMstrict -le "my $s = 'xxxyxxx'; ... " 'xxxFOO xxx'