#!/usr/local/bin/perl

while(<>)
{
	next  unless( /^<tr bgcolor=cccccc align=middle><td>(\d+.\d+.\d+.\d+)<\/td><td>(\d+)<\/td><\/tr>/ );
	$ip=$1;
	$port=$2;
	print "$ip $port\n";
}