use strict;
open FILE, "<searchfile.txt";
my @line = <FILE>;
for (@line) 
	{
    if ($_ =~ m{["](.*?)["]}) 
	{
        print "$_\n";
    }
	}