36  my $prefixSysDescr      =   quotemeta 'system.sysDescr.0 : DISPLAY STRING- (ascii):  ';
......
53      for ( $sysDescr ) {
54         /\Q$prefixSysDescr\E/ && do {
55            $sysDescr =~ s/$prefixSysDescr//;
56      print $sysDescr, "\n";
57      Pause(__LINE__);
58            s/^$prefixSysDescr//g;
59            last;
60         };
61         /^$prefixSnmpWalk/  && do {
62      Pause(__LINE__);
63            $sysDescr =~ s/^$prefixSysDescr//g;
64            last;
65         };
66      #   $sysDescr = $sysDescr . " " . $sysDescr;
67      }
68      print $sysDescr;
69      Pause(__LINE__);
...