#!/usr/bin/perl

 $_=`lynx -source http://underworld.idsoftware.com/serverlist.html-ssi`;
 while (m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d+)<\/font><\/td><td><font color=#......>([^<]+)<\/font><\/td><td><font color=#......>([^<]+)/gc) {
  $ip=$1;
  $port=$2;
  $level=$3;
  $players=$4;
  $time=`ping -c 1 $1`;
  if ($time=~/round-trip min\/avg\/max = [\d\.]+\/([\d\.]+)\/[\d\.]+ ms/) {
   print $1,"ms --> $ip:$port $level, $players\n";
  }
 }