#!/usr/bin/perl -w
   
use strict;
   
while( my $url = <DATA> )
   {  chomp($url);
      my @Url = split(/\./,$url);
      if ( length($Url[$#Url]) == 3 )
          {   print "$url:\t\tTLD is '".$Url[$#Url]."'\n";
          }
      else
          {   print "$url:\t\tTLD is '".$Url[$#Url-1].".".$Url[$#Url]."'\n";
          }
   }
   
   1;
   
   __DATA__
   www.drane.fresel.co.uk
   www.drane2.ws.uk
   www.drane3.Intern.com

##</code><code>##

www.drane.fresel.co.uk:         TLD is 'co.uk'
www.drane2.ws.uk:               TLD is 'ws.uk'
www.drane3.Intern.com:          TLD is 'com'