#!/usr/bin/perl

$_ = `nslookup <some_ip_addr>`;/A-Za-z\.A-Za-z\.A-Za-z\.A-Za-z\./;
print $&;