for IP; do
	host "$IP" | perl -pe 's/.* domain name pointer //; s/\.$//;'
done