use Regexp::Common;

    $host = $3 if $url =~ /$RE{URI}{HTTP}{-keep}/;