#!/usr/ug/bin/perl

my @kill= qw(obnoxious@pest.com blahblah@ugcs.caltech.edu);

my $gs= $ENV{GALE_SIGNED};

foreach my $id (@kill) {
    exit if $gs eq $id;
}

@in= <STDIN>;
open GSUB, "|gsub -r";
print GSUB @in;