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

print $str;

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

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