Filtering Files

 #!/usr/local/bin/perl
 # Script: naughty.pl

 use CGI ':standard';
 $file = path_translated() || 
	die "must be called with additional path info";
 open (FILE,$file) || die "Can't open $file: $!\n";
 print header('text/plain');
 while (<FILE>) {
    s/\b(\w)\w{2}(\w)\b/$1**$2/g;
    print;
 }
 close FILE;