my $QNAME= "www.google.com"; 
 
my ($QNAME1, $QNAME2,$QNAME3)= split(/\./,$QNAME);
my ($len1,$len2, $len3)=(length($QNAME1),length($QNAME2),length($QNAME3));