Select Code to Download

m/(?(?=Z|Y)[Z]|[Y])/

(?(DEFINE)
    (?<NAME_PAT>....)
)

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

m/(?:'[^']|"[^"])/