use strict;
use warnings;
print m/^.*?(\w+\.\w+)$/ while(<DATA>);
__DATA__
shopping.yahoo.com
yahoo.com
some.very.long.url.at.yahoo.com

##</code><code>##

$ perl -l 632539.pl
yahoo.com
yahoo.com
yahoo.com