" failed " =~ /(?{ $ok = 1 })XXX/;
print $ok ? "Good" : "Bad";