@output = `nslookup 10.1.1.1`; @grepResults = grep /.arpa/, @output ; $fqdn = substr ( ( split ( /= / , $grepResults[0] ) )[1], 0, -2 ) ; print "fqdn=$fqdn\n" ;