#!/usr/bin/perl -w

while (<>) {
  s|(h?tt?p(s?)://([-0-9a-z]+(\.[-0-9a-z]+)+/[-\.~_=/0-9a-z%?&+;@]*))|<a href="http$2://$3">$1</a>|ig;
  s|^([-_a-z0-9.]+\.[-_a-z0-9]{2,4})$|<a href="$1">$1</a>|ig;
  print;
}