Fixed a few typos

Author: Jan-Olof Hendig

doc/Language/quoting.pod6

@@ -199,7 +199,7 @@ You can also use unicode names with C<\c[]>.
 
     my $s = "Camelia \c[BROKEN HEART] my \c[HEAVY BLACK HEART]!";
     dd $s;
-    # OUTPUT: «Str $s = "Str $s = "Camelia 💔 my ❤!"␤»
+    # OUTPUT: «Str $s = "Camelia 💔 my ❤!"␤»
 
 Interpolation of undefined values will raise a control exception that can be
 caught in the current block with
@@ -241,8 +241,8 @@ It's easier to write and to read this:
 X«|< > word quote»
 
 =for code :allow<B L> :skip-test
-B«<»a b cB«>» L<eqv> ('a', 'b', 'c');   # OUTPUT: «True␤»
-B«<»a b 42B«>» L<eqv> ('a', 'b', '42'); # OUTPUT: «False␤», the 42 become an IntStr allomorph
+say B«<»a b cB«>» L<eqv> ('a', 'b', 'c');   # OUTPUT: «True␤»
+say B«<»a b 42B«>» L<eqv> ('a', 'b', '42'); # OUTPUT: «False␤», the 42 become an IntStr allomorph
 say < 42 > ~~ Int; # OUTPUT: «True␤»
 say < 42 > ~~ Str; # OUTPUT: «True␤»
 
@@ -298,7 +298,7 @@ you need to use the C<qqw> variant:
 
     my $a = 42;
     my @list = qqw{$a b c};
-    say @list;                # OUTPUT: «42 b c␤»
+    say @list;                # OUTPUT: «[42 b c]␤»
 
 Note that variable interpolation happens before word splitting: