#!/usr/bin/perl -w

# used to extract accessing hostnames from webserver logfile
# reads from stdin and writes to stdout

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

