while ( $data =~ /\b([a-zA-Z]+)\b\s*\(/g ) {
    print "$1\n";
}