open I, "<enwik8";
open O, ">log1.txt";

while( <I> ) {

  if( m!((?:http|ftp|https)://.*?)[\x00-\x20\]\<"]! ) {
    print O "$1\n";
  }

}