Select Code to Download

($domain) = $url =~ m|www.([A-Z a-z 0-9]+.{3}).|x;

#!/usr/bin/env perl -l

...

my ($domain) = $url =~ m|www.([A-Z a-z 0-9]+.{3}).|x;
print '$domain=[', defined $domain ? $domain : '<undef>', ']';

$domain=[example.co]

my ($alpha_num, $any_three, $final_dot)
    = $url =~ m|www.([A-Z a-z 0-9]+)(.{3})(.)|x;
print '$alpha_num=[', defined $alpha_num ? $alpha_num : '<undef>', ']'
+;
print '$any_three=[', defined $any_three ? $any_three : '<undef>', ']'
+;
print '$final_dot=[', defined $final_dot ? $final_dot : '<undef>', ']'
+;

$alpha_num=[example]
$any_three=[.co]
$final_dot=[m]