Re: Reprocessing old archives

[Dave Sill]

Here's the script I came up with, in case anyone else cares:

  #!/usr/local/bin/perl -pi~
  s|([\!\%\w\.\-+=/]+@)([\w\.\-]+)|$1.('x' x length($2))|ge

The substitute command came from MHonArc. It replaces the domain with
an equal-length string of x's.

-Dave