Help for this page
print "oid[$oidfila]\n" oid[1.3.6.1.4.1.1012.170.2.40.1.1.1.0.4194288]
$oidfila =~ s/^[0-9\.]+(\.[0-9]+)$//;