#!/usr/bin/perl -s

while (<>) {
  s/\r//g;
  s/\n//g;
  if ( m|([a-zA-Z]+://[-a-zA-Z0-9.:]+[-a-zA-Z0-9~%/.]*)| ) {
    $url = $1;
    $url =~ s|:80/|/|;
    $url =~ s|:80$|/|;
    $url =~ s|([^/])/([^./]+)$|$1/$2/|;
    $url =~ s|//([^/]+)$|//$1/|;
    $url =~ m|^(.*)://(.*)$|;
    $protocol = $1;
    $host = $2;
    ($host =~ s|^([^/]+)(.*)$|$1|) && ($request = ($2||"/"));
    $host =~ y/A-Z/a-z/;
    print "$protocol://$host$request\n";
  }
  elsif ( m|(www\.[-a-zA-Z0-9.:]+[^ ">]*)| )
  {
    $url = $1;
    print "http://$url\n";
  }
}