c:\@Work\Perl\monks>perl -wMstrict -le
"my $url = q{is 'www' really a domain?!?};
 print qq{($1)} if $url =~ m|www.([A-Z a-z 0-9]+.{3}).|x;
"
( really a domain?!)