#!/usr/bin/perl -w

use strict;
my $rcs = ' $Id: lshtml.pl,v 1.3 2001/12/16 08:56:28 gilles Exp $ ' ;

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