$qname="_sip._udp.www.google.com"; $qname =~ m/(_sip\._udp\.)(.*)/; $qname1 = $2;