Select Code to Download

#!/usr/local/bin/perl
use strict;
...
my ($domainname, $domain)= $address=~ /(\w+)\.(\w+)\./;
print "$domainname\n";
print "$domain\n";