>>411
$url =~ s{(?<=://)(\w+(?:-\w+)*)\.\w+} {
　　my $host = $1;
　　$host =~ tr/-/./;
　　$host;
}e;