X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlsyn.pod;h=1d0f5d694fbffc5327c6ef916f6bd5cf8b5518ed;hb=6ee623d521a149edc6574c512fa951a192cd086a;hp=ebaa3b22e341599990cb69d15decc56ddb58f643;hpb=20408e3ccf502b6ce4033d8203710405ec9ef8f6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index ebaa3b2..1d0f5d6 100644
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -409,6 +409,18 @@ or
 	$nothing = 1;
     }
 
+or, using experimental C<EVAL blocks> of regular expressions
+(see L<perlre/"(?{ code })">),
+
+	/ ^abc (?{ $abc = 1 })
+         |
+	  ^def (?{  $def = 1 })
+	 |
+	  ^xyz (?{ $xyz = 1 })
+	 |
+	  (?{ $nothing = 1 })
+	/x;
+
 or even, horrors,
 
     if (/^abc/)