my @tests = (
  '"abcd\\\\efgh"',
  '"abcd\\""',
  '"abcd\\"efgh"',
  '"abcd\\\\\\"efgh"',
  '"abcd\\\\i\\"efgh"',
  '"abcd\\\\"',
);

foreach my $test (@tests) {
  print "Try for \"$test\":\n";
  if ($test =~ /^"((?:[^"\\]|\\["\\])+)"$/) {
    print "It matches!\n";
    print '$1: ' . $1 . "\n";
    print '$2: ' . (defined($2) ? "\$2 is defined\n" : "\$2 is NOT defined\n");
  } else {
    print "It does not match!\n";
  }
  print "\n";
}