Select Code to Download

Select or download this

use strict;
use warnings;
...
or the text will not match and that no checks are made for silly nesti
+ng of
formatting - re-formatting bold text won't make it double <i>bold</i> 
+but will double
the bold tags.</p>

Select or download this

<html><head></head><body><p>This test script demonstrates a way to run
+ through the <em>text</em> in a chunk of HTML and <i>wrap selected te
+xt in formatting</i> tags. <p>Note that the text to be formatted must
+ not contain any tags in the original or the text will not match and 
+that no checks are made for silly nesting of formatting - re-formatti
+ng <b>bold</b> text won't make it double <i><b>bold</b></i> but will 
+double the <b>bold</b> tags.</body></html>

Select or download this

sub formatText {
    my ($node, $target, $tag) = @_;
...

    $node->push_content (@newChildren) if @newChildren;
}