Select Code to Download

use strict;
use warnings;
# from bloodnok's reply to 717447
...
my $qname;
$qname = ("_sip._udp.www.google.com") =~ m/(.*\.)(www.*)/; 
print "\$1 is: $1 \n \$2 is: $2\n";

$1 is: _sip._udp.
 $2 is: www.google.com