Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
$model =~ s/^Connection Culv=\K.*\n.*\n(?=(Conn Culvert Barrel=.*\S))/
+$replace{$1}/gm;

print $model;

Select or download this

Connection Culv=This is Line1 - New text here
     111 111 This should be new too
...
Connection Culv=This is Line3 - New text here
     333 333 This should be new too
Conn Culvert Barrel=Culvert3