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

##</code><code>##

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