http://www.perlmonks.org?node_id=897255


in reply to combine perl/tk and file::tail::select

Use the code tags please, your code is not readable. To extract one IP address and port from a string, you can use this regular expression:
my ($ipaddr,$port)=($1,$2) if $string=~/(\d+\.\d+\.\d+\.\d+):(\d+)/;
HTH,
SSF