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

##</code><code>##

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