X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlsyn.pod;h=f7913700db9a63857de0d736ddbbbe11319e8fc4;hb=3aefca0416eab0f2104345964c03107793baf1d6;hp=205be7d97ac4b2c4fbee16c0ba7fab29499cb8d7;hpb=ecbaadc1f9d5bbebf204a971c75e312b0e7fa9ae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index 205be7d..f791370 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/)