#!/usr/bin/perl
use Encoding::BER::SNMP;

while(<DATA>) {
    chop;
    $data .= chr hex $1 while s/(..)//;
} 

my $enc = Encoding::BER::SNMP->new();

while ($data) {
    my $result = $enc->decode($data);
    my $oid    = $result->{'value'}->[0]->{'value'};
    my $value  = $result->{'value'}->[1]->{'value'};

    print "returned pair: $oid -> $value\n";

    my $back   = $enc->encode($result);
    $data      =~ s/\Q$back\E// or last;
}
__DATA__
3014060e2b06010401090929010203010200040232303013060e2b060104
01090929010203010300020105301d060e2b060104010909290102030104
00040b5379736c6f67205472617030818c060e2b06010401090929010203
010500047a3130363032333a2044656e792069636d7020737263206f7574
736964653a3231362e3139362e36342e3132342064737420696e73696465
3a3230382e3130392e39302e323120287479706520382c20636f64652030
29206279206163636573732d67726f757020226f7574736964655f616363
6573735f696e223016060e2b06010401090929010203010600430473c36bf8