for ( $sysDescr ) {

         s/$prefixSysDescr|$prefixSnmpWalk/$hostName$TAB/ && do {
            $OutputLine = $_;
            last;
         }; # substitute some prefixes

         $OutputLine = $OutputLine . $SPACE . $_;

      } # process output

##</code><code>##

$ perl -w getSysDescr.pl
82 >>omServer1  Sun SNMP Agent, Ultra-80

Pause in (main). Go [y|Y]; Quit [q|Q]: y
82 >> omServer2  IBM PowerPC CHRP Computer Machine Type: 0x0800004c Processor id: 00C9FC8A4C00 Base Operating System Runtime AIX version: 05.03.0000.0060 TCP/IP Client Support version: 05.03.0000.0063

Pause in (main). Go[y|Y]; Quit [q|Q]: y
82 >>omServer3  No response arrived before timeout.

Pause in (main). Go [y|Y]; Quit [q|Q]:q