strip-word-collator-suffix.pl

#!/usr/bin/env perl
while (<>) {
    s/ \(.*//;
    print;
}