Select Code to Download

Select or download this

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";
                         }

Select or download this

if (m{    
    ^ (  # open capturing group 1 (was unbalanced)
...
    my($host,$path) = ($4,$5);
    print "$host => $path\n";
    }