$VAR1 = [
          'snmp-server host 10.234.171.38 abcd
snmp-server host 10.234.171.39 abcd
snmp-server host 10.234.171.40 abcd
!snmp-server host 10.10.10.1 xyz
!'
        ];

##</code><code>##

no snmp-server host 10.234.171.38 abcd\nno snmp-server host 10.234.171.39 abcd\nno snmp-server host 10.234.171.40 abcd\n

##</code><code>##

$VAR1 = [
          'snmp-server host 208.234.171.38 JCIPPUBL
no cdp advertise-v2
no cdp run
!'
        ];

Use of uninitialized value in concatenation (.) or string at replace_ex10.pl line 34.

---Result 1---

##</code><code>##

my $result_1;
for (split /(?<=\n)/, $res->result()) {
    next unless /^\Qsnmp-server host\E/;
    $result_1 .= $_;
}
print "---Result 1---\n$result_1\n\n";