print "oid[$oidfila]\n" 

oid[1.3.6.1.4.1.1012.170.2.40.1.1.1.0.4194288]

##</code><code>##

$oidfila  =~ s/^[0-9\.]+(\.[0-9]+)$//;