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