$ipaddr = '192.168.8.205';
print ($ipaddr =~ /^(\d+\.\d+)/);