Help for this page

Select Code to Download

Select or download this

while (<DATA>) {
    if ( m{<sb>} .. m{</sb>} ) {
...
<s1>King of Perl
This is only a test.
<s1>King of Operators<sb><s1>Well, maybe not</sb>

Select or download this

<section1>King of England
JAMES, by the Grace of God, King of England, Scotland, France and Irel
+and, Defender of the Faith...
...
<section1>King of Perl
This is only a test.
<h1>King of Operators<sb><h1>Well, maybe not</sb>