Fixed a slightly broken code example. timotimo++

Author: Jan-Olof Hendig

doc/Language/regexes.pod6

@@ -506,7 +506,7 @@ Likewise, C<$> matches the end of a B<string>, not the end of a B<line>.
 
 The following is a multi-line string:
 
-    my $str = q:to/EOS/;
+    my $str = chomp q:to/EOS/;
        Keep it secret
        and keep it safe
        EOS