Adds example for infix |, closes #1889

doc/Language/operators.pod6

@@ -932,7 +932,8 @@ L<Hash> into an argument list.
     slurpee( <a b c d>, { e => 3}, 'e' => 'f' => 33 )
     # OUTPUT: «\(("a", "b", "c", "d"), {:e(3)}, :e(:f(33)))␤»
 
-Please see the L<C<Signature> page, specially the section on Captures|/type/Signature#Capture_Parameters> for more information on the subject.
+Please see the L<C<Signature> page, specially the section on Captures|/type/Signature#Capture_Parameters>
+for more information on the subject.
 
 Outside of argument lists, it returns a L<Slip|/type/Slip>, which makes
 it flatten into the outer list. Inside L<argument
@@ -1295,10 +1296,17 @@ details.
 
     multi sub infix:<|>($a, $b --> Junction:D) is assoc<list>
 
-X<Any junction operator>.
+X<|Any junction operator>
+Creates an I<any> L<Junction> from its arguments.
 
-Creates an I<any> L<Junction> from its arguments. See L<Junction> for more
-details.
+    my $three-letters = /<[a b c]>/ | /<[i j k]>/ | /<[x y z]>/;
+    say $three-letters.perl; # OUTPUT: «any(/<[a b c]>/, /<[i j k]>/, /<[x y z]>/)␤»
+    say 'b' ~~ $three-letters; # OUTPUT: «True␤»
+
+This first creates an C<any> C<Junction> of three regular expressions
+(every one of them matching any of 3 letters), and then uses
+smartmatching to check whether the letter C<b> matches any of them,
+resulting in a positive match. See also L<Junction> for more details.
 
 =head2 infix C«^»