--- trunk/back2html.pm	2003/07/04 20:41:17	64
+++ trunk/back2html.pm	2003/07/04 21:35:34	65
@@ -11,9 +11,7 @@
 	foreach $line (split(/###/,$html)) {
 		$out .= "<tr><td>";
 		my @items = split(/#-#/,$line);
-		if ($items[1] =~ m#^http://#) {
-			$items[1] = "<a href=\"$items[1]\">$items[1]</a>";
-		}
+		$items[1] =~ s#(.*)\b(http://[\w\./]+)(\b?.*)#$1<a href=\"$2\">$2</a>$3#g;
 		$out .= join("</td><td>",@items);
 		$out .= "</td></tr>\n";
 	}