So, the output from my code could look like:
$VAR1 = [
          'snmp-server host 10.234.171.38 JCIPPUBL
no cdp advertise-v2
no cdp run
!'
        ];
server host 10.234.171.38 abcd
no snmp-server host 10.234.171.38 abcd \n

or there can be multiple lines such as this:

$VAR1 = [
          'snmp-server host 10.234.171.45 admin
snmp-server host 10.234.171.46 admin
snmp-server host 10.234.171.51 admin  frame-relay config snmp
snmp-server host 10.234.171.75 admin
snmp-server host 10.234.171.51 publ  frame-relay config snmp
snmp-server host 10.234.171.54 publ  frame-relay config snmp
snmp-server host 10.234.171.59 publ
!snmp-server host 10.234.171.46 admin
snmp-server host 10.234.171.51 admin  frame-relay config snmp
snmp-server host 10.234.171.75 admin
snmp-server host 10.234.171.51 publ  frame-relay config snmp
snmp-server host 10.234.171.54 publ  frame-relay config snmp
snmp-server host 10.234.171.59 publ
!snmp-server host 10.234.171.51 admin  frame-relay config snmp
snmp-server host 10.234.171.75 admin
snmp-server host 10.234.171.51 publ  frame-relay config snmp
snmp-server host 10.234.171.54 publ  frame-relay config snmp
snmp-server host 10.234.171.59 publ
!snmp-server host 10.234.171.75 admin
snmp-server host 10.234.171.51 publ  frame-relay config snmp
snmp-server host 10.234.171.54 publ  frame-relay config snmp
snmp-server host 10.234.171.59 publ
!snmp-server host 10.234.171.51 publ  frame-relay config snmp
snmp-server host 10.234.171.54 publ  frame-relay config snmp
snmp-server host 10.234.171.59 publ
!snmp-server host 10.234.171.54 publ  frame-relay config snmp
snmp-server host 10.234.171.59 publ
!snmp-server host 10.234.171.59 publ
!'
        ];
server host 10.234.171.45 admin
no snmp-server host 10.234.171.45 admin \n

The code is currently:

#!/usr/bin/perl

use lib qw(blib lib);
#use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Data::Dumper;
use Opsware::NAS::Client;
use Net::Ping;
use POSIX qw(strftime);
#use TrueControlAPI;

my($user,$pass,$host) = ('na_admin', 'na4adm1n', 'localhost');
my $help = 0;

my $nas = Opsware::NAS::Client->new();
my $res = $nas->login(-user => $user, -pass => $pass, -host => $host, -nosession => '0');

print " \n";

#$res = $nas->show_configlet(host => "dev1", start => "snmp-server host", end => "!");

$res = $nas->show_configlet(host => "dev2", start => "snmp-server host", end => "!");


#$res = $nas->show_deviceinfo(ip => '10.253.74.70');


unless ($res->ok()) {
  printf STDERR ("*** error: %s\n", $res->error_message());
  exit(1);
}

print (Dumper([$res->result()]));


foreach my $var1 ($res->result()) {

#my ($image) = $var1 =~ /^SystemImage:\s*([^\n]+)/m

my ($snmp) = $var1 =~ /^snmp-\s*([^\n]+)/m
   or die("No SystemImage\n");

print("$snmp\n");



my ($no_snmp) = 'no snmp-' . $snmp . '\n';

print("$no_snmp\n");


}


$nas->logout();