sub urlcheck($newline)
{
 $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\>/;	
 return $newline;
}