use strict;
use warnings;

my $line = "SNMPv2-MI::enterprises.343.2.10.3.5.100.1.0=INT";

my $match = $1 if $line =~ /^SNMPv2-MI::enterprises([0-9\.]+)=INT$/;