Select Code to Download

<h2>2.1. Match Literal Text</h2>
<h2>2.2. Match Nonprintable Characters</h2>
<h2>2.3. Match One of Many Characters</h2>

<h2 id="Match Literal Text">2.1. Match Literal Text</h2>
<h2 id="Match Nonprintable Characters">2.2. Match Nonprintable Charact
+ers</h2>
<h2 id="Match One of Many Characters">2.3. Match One of Many Character
+s</h2>

use Tie::File;
...
        $_ =~ s/$regex/$+{tag} id="$+{text}"$+{closing_bracket}$+{ol_n
+umbers} $+{text}$+{closing_tag}/;
    }
    else { # blah blah blah