#!/usr/bin/perl -l

$_ = `nslookup 209.197.123.153`;

print $1 if /name\s*=\s*(([A-Za-z]+\.){2,})/;

__END__
www.perlmonks.org.