Help for this page
$qname1 = join ".",(split(/\./, $string))[2,3,4];
$qname1 = join ".",(split(/\./, $string))[-3,-2,-1];