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