if ($newline =~ /http/i)
{
 $newline =~ s/http\:\/\//\<a href \= \"http\:\/\//ig;
 if (substr ($newline, $#newline - 1, 1) eq ".")
 {
  $x = substr ($newline, /\G/, $#newline - 1);
 }
 else
 {
  $x = substr ($newline, /\G/); 
 }
 $page = $x;
 $page =~ s/(http\:\/\/)|(\<\/a\>)|\=|\"|(href)|(\<a)|
  (\w+[ ]+)//g;
 $newline =~ s/$x/$x\"\>$page\<\/a\>/;	
}
print "<td>" . $newline . "</td>";