x.pl

Linus guide, Linus guide, Linus guide,

#!/usr/bin/perl

while ($fn=<*.html>) {
  $x = `cat $fn`;

  $x =~ s/jtg\@computers.iwz.com/jgo\@local.net/igs;
 
  open(FD, ">$fn");
  print FD $x;
  close FD; 
}