Prevent a newline from breaking apart a code block

Author: moritz

lib/Language/regexes.pod

@@ -402,6 +402,7 @@ C<q:to/EOS/...EOS> "heredoc" syntax removes leading indention to the
 same level as the C<EOS> marker, so that first, second and last lines have no
 leading space, and the third and fourth lines have two leading spaces each).
 
+=begin code
     my $str = q:to/EOS/;
         There was a young man of Japan
         Whose limericks never would scan.
@@ -419,6 +420,7 @@ leading space, and the third and fourth lines have two leading spaces each).
     say so $str ~~ / scan $$/;          # False (there is a . between "scan"
                                         #        and the end of line)
     say so $str ~~ / '."' $$/;          # True  (at the last line)
+=end code
 
 =head2 X<<<<C<<< << >>> and C<<< >> >>>, left and right word boundary|regex,<<;regex,>>;regex,«;regex,»>>>>