use strict;
use warnings;
# from bloodnok's reply to 717447

# my ($qname = "_sip._udp.www.google.com") =~ s/(.*\.)(www.*)/; # typo
+? Not substitution, which throws an error
# ($qname, my $qname1) = ($1, $2);
# error: Can't declare scalar assignment in "my" at 717447.pl line 9, 
+near ") =~"

my $qname;
$qname = ("_sip._udp.www.google.com") =~ m/(.*\.)(www.*)/; 
print "\$1 is: $1 \n \$2 is: $2\n";
[download]

Output

$1 is: _sip._udp.
 $2 is: www.google.com
[download]

Update: corrected to clarify initial commented line which has two problems