#!/usr/bin/perl -w
open IN,"<","file" or die "error opening file: $!";
while(<IN>){
if(/"\(\w+\)"\/){
print "$1\n";
}}