Select Code to Download

$envfile="/root/env.properties"; 
@envFile=<$env>;
open my $env,  '<',  $envfile      or die "Can't read old file: $!";

open my $in,  '<',  $file      or die "Can't read old file: $!";
open my $out, '>', "$file.new" or die "Can't write new file: $!";

...
foreach $envline (@envFile){

while ( <$in> ){

        print "$. $_";
        if($envline =~/$DOMAIN_DB_CONN_STR=.*:1521:.*/ && $_=~/$DOMAIN
+_DB_CONN_STR=.*:1521:.*/){

                print "\nMatch";
                $line=$_;
                $line =~ s/$DOMAIN_DB_CONN_STR=.*:1521:.*/NUANCE_DB_CO
+NN_STR=$dbhost:$dbport:$dbschema/;

                print $out $line;
        }
}
}

use strict;
use warnings;
...
        }
    }
}