#!/usr/bin/perl
use utf8;
use URI;
use Encode;
use strict;
use warnings;

my $href="https://\x{30de}\x{30ea}\x{30a6}\x{30b9}.com/";
print $href,"\n";

my $uri = URI->new($href);

my $domain = $uri->host;

print ":",$domain,"\n";

$domain = Encode::decode('utf-8', $domain);
print "=",$domain,"\n";

$domain = Encode::encode('utf-8', $domain);
print ".",$domain,"\n";

exit(0);