Select Code to Download

maybe some stuff foo maybe some more stuff;

// maybe some stuff foo maybe some more stuff;

$a="abcdefghijklm";
1 print "match" if ( $a =~ /(?<!cde).*?jkl/ );    # match because a do
+es not match cde, then bcdefghi follows, then jkl matches?
...
$a="xyzfghijklm";
1 print "match" if ( $a =~ /(?<!cde).*?jkl/ );    # match because cde 
+is not before jkl, then jkl matches
2 print "match" if ( $a =~ /(?<=cde).*?jkl/ );    # no match because c
+de is not before jkl

$a = "mlkjihgfedcba";
print "match" if ( $a =~ /lkj(?!.*?edc/ );    # no match because edc D
+OES follow lkj. This is what is desired. (It does not match in the un
+reversed when cde precedes jkl)

$a = "mlkjihgfzyx";
print "match" if ( $a =~ /lkj(?!.*?edc/ );    # match because edc does
+ not follow lkj. Again, this is what I want. ( It does match jkl in t
+he unreversed when not preceded by cde)