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

##</code><code>##

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