#!/usr/bin/perl -wl
use strict;

my $string = 'foo "A small \"dog\" eats pie." bar "foobar"';

print $1 while $string =~ /(?<!\\)"(.*?)(?<!\\)"/gs;