#!/usr/bin/perl

use strict;

open (FH,"test.test") or die;

while(<FH>) {
if ($_ =~ /"(.+?)"/) {
  print "Matched: $1\n";
}

}