#!/afs/athena/contrib/perl/p

open(WFILE, "/afs/sipb/user/mkgray/words.key");
@irrelevant=(<WFILE>);
close(WFILE);

while(<>){
    $string=$_;

for $word (@irrelevant){
    $string =~ s/(\b)$word\b/$1/gi;	
}
    $string =~ s/ +/ /g;
print("$string\n");

}