#!/usr/bin/perl -i.b -w while(<>){ s=../articles/a=a=g; s="article10.html="article68.html=g; s="article13.html="article69.html=g; s="article16.html="article70.html=g; s="article17.html="article71.html=g; s="article20.html="article72.html=g; s="../search.html="../Search/=g; s=May1998/article15.html=May1998/article40.html=g; s=src/article16=src/article70=g; s=article32.html=../July1998/article55.html=g; print; }