$ip = '105.189.235.101';
($a,$b) = split(/\./,$ip);
print $a."-".$b;