Help for this page

Select Code to Download

Select or download this

use URI::Split qw/uri_split/;
my $url = 'http://www.google.com';
my ($proto, $fqdn) = uri_split($url);
print "Protocol:$proto Domain:$fqdn\n";

Select or download this
```
Protocol:http Domain:www.google.com
```