in reply to Extract Host, Logical Host from URL
use strict; use warnings; print m/^.*?(\w+\.\w+)$/ while(<DATA>); __DATA__ shopping.yahoo.com yahoo.com some.very.long.url.at.yahoo.com [download]
$ perl -l 632539.pl yahoo.com yahoo.com yahoo.com [download]