my ($ipaddr,$port)=($1,$2) if $string=~/(\d+\.\d+\.\d+\.\d+):(\d+)/;