#!/usr/bin/perl -w

use strict;
my $rcs = ' $Id: lshtml.pl,v 1.6 2001/10/03 15:37:47 gilles Exp $ ' ;	

while (<>) {
  s/([\w\.\/\-\~\,\:]+)/<A HREF="$1">$1<\/A>/g;
  print;
}