if (m/^(((ht|f)tp(s?))\://)?(www.|[a-zA-Z].)[a-zA-Z0-9\-\.]+\.(com|edu|gov|m
 +il|net|org|biz|info|name|museum|us|ca|uk)(\:[0-9]+)*(/($|[a-zA-Z0-9\.
 +\,\;\?\'\\\+&%\$#\=~_\-]+))*$/){
                         my($host,$path) = ($4,$5);
                         print "$host => $path\n";
                         }

##</code><code>##

if (m{    
    ^ (  # open capturing group 1 (was unbalanced)
        ((ht|f)tp(s?) \: //)?  # removed close paren after (s?)
        (www.|[a-zA-Z].) 
        [a-zA-Z0-9\-\.]+ \.
        (com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk)
        (\:[0-9]+)* 
        (/($|[a-zA-Z0-9\.\,\;\?\'\\\+&amp;%\$#\=~_\-]+))*
    ) $  # (maybe?) added for balance: close capture group 1
    }x
    ) {
    my($host,$path) = ($4,$5);
    print "$host => $path\n";
    }