#!/usr/local/bin/perl -w

## this isn't actually used in the Duluth system scripts, but
## might be handy if you want to remove some of the non-textual
## data from the input text prior to processing

while (<>) {

	s/&quot;//g;    # remove &quot;
	s/&bquo;//g;    # remove &quot;
	s/&equo;//g;    # remove &quot;
	s/\[.*\]//g;    # remove [ ] text from senseval-2
	print;
}
