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";