print "Yes"
  if $string =~ m/(?(?=')'[^']|)
                  (?(?=")"[^"]|)/x;