#!/usr/bin/perl use strict; open (FH,"test.test") or die; while() { if ($_ =~ /"(.+?)"/) { print "Matched: $1\n"; } } #### This is line 1 "hello there" the is line 2 "goodbye, take care" this is line 3 "Jump, fox. Jump" #### Matched: hello there Matched: goodbye, take care Matched: Jump, fox. Jump