More Capturing

while(<>) {
  if(/http:\/\/([^\/ ]+)/) {
    print $1, "\n";
  }
}

• Input:

http://slashdot.org/~BillG/journal
http://www.stuff.co.nz/sport/beachvolleyball
http://on.tv/tonight

• Output:

slashdot.org
www.stuff.co.nz
on.tv