#!/usr/bin/perl -w

use strict;
my $rcs = ' $Id: lshtml.pl,v 1.4 2001/09/20 20:36:04 gilles Exp $ ' ;	

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