#!/bin/sh
perl -ne 's/".*?"//g; while (/\(([^ ()\n]+)/g) { print "$1\n"; }' |
sort -u