extract-strings

my $fn = 'P2.txt';
open ( my $fh, '<', $fn ) or die "Could not open file '$fn': $!";
my $str = do { local $/; <$fh> };
close $fh;
my @result = $str =~ /"(.*?)"/g;