package Apache::Censor;

use strict;
use Apache::Forward ();
use vars qw(@ISA $VERSION);
@ISA = qw(Apache::Forward);
$VERSION = '1.00';

sub PRINT {
    my($self, @data) = @_;
    foreach (@data) { s/\b(\w)\w{2}(\w)\b/$1**$2/g; }
    $self->forward(@data);
}

1;
__END__