Make xtest pass

Author: zoffixznet

doc/Type/Str.pod6

@@ -830,20 +830,20 @@ of type L<Cool> are coerced to C<Str> for literal matching.
 
 The replacement can be a L<Callable> in which the current L<Match> object will be
 placed in the C<$/> variable, as well as the C<$_> topic variable.
-No thunking of arguments is done, so you need to use a L<Callable> replacement, to
-refer to any of the captures made in the regex:
+Using a L<Callable> as replacement is how you can refer to any of the captures
+created in the regex:
 
     # Using capture from $/ variable (the $0 is the first positional capture)
     say 'abc123defg'.subst(/(\d+)/, { " before $0 after " });
     # OUTPUT: «abc before 123 after defg␤»
-        
+
     # Using capture from $/ variable (the $<foo> is a named capture)
-    say 'abc123defg'.subst(/$<foo=\d+/, { " before $<foo> after " });
+    say 'abc123defg'.subst(/$<foo>=\d+/, { " before $<foo> after " });
     # OUTPUT: «abc before 123 after defg␤»
-    
+
     # Using WhateverCode to operate on the Match given in $_:
-    say "abc123defg".subst(/(\d+)/, *.flip);
-    # OUTPUT: «abc321defg␤»
+    say 'abc123defg'.subst(/(\d+)/, "[ " ~ *.flip ~ " ]");
+    # OUTPUT: «abc[ 321 ]defg␤»
 
     # Using a Callable to generate substitution without involving current Match:
     my $i = 41;