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