#!/bin/sh

wget -q -O - http://www.iana.org/cctld/cctld-whois.htm | perl -ne 'print "$1\t$2\n" if />\.(\w\w).*?(\w+)</;'