use v5.20;
use Data::Dump qw( pp );
my $str = <<STR;
 " .. \\\\" .. "
STR

print $str;

my %re = (LanX => qr/ " (?: \\\\ | \\" | [^"] )* " /x,
          Eily => qr/ " (?: [^\\] | \\. )* " /x);

$str =~ /$re{$_}/ and say "$_ found $&" for keys %re;


##</code><code>##

 " .. \\" .. "
Eily found " .. \\" .. "
LanX found " .. \\"