Select Code to Download

#!/usr/bin/perl

...
        delete $stack[$c]    if($stack[$c] eq $tag ) 
    }
}

text= <p>paragraph<b>BOLD text</p><a href=">>>>">link text</a><div><p>
+Some new text <b>in bold and <i>cursive</b></p></div><p>test</p>
not properly closed: b
OK Tag: <a href=">>>>">link text</a>
not properly closed: i
OK Tag: <p>test</p>