Detecting the domain part of a host address?

[Marc Perkel]

What would be the method of detecting the domain part of a host address? 
For example:

82-46-151-246.cable.ubr04.perr.blueyonder.co.uk
How would you write a perl script that would extract the 
blueyonder.co.uk part?