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