perl -e '$line="SNMPv2-MI::enterprises.343.2.10.3.5.100.1.0=INT";
print $1 if $line=~/^[\w|\d|-]*::\w*.(((\d{1,3})\.?){8})/'