Select Code to Download

<H1>some text</H1>
<NLI>some text</NLI>
...
<2NLI>some text</2NLI>
<2NLI>some text</2NLI>
<aLI>some text</aLI>

<H1>some text</H1>
<OL TYPE="1">
...
<OL TYPE="a">
<LI>some text</LI>
</OL>

undef $/;
%oli = ("NLI" => "OL TYPE\"1\"", "ALI" => "OL TYPE\"A\"", "aLI" => "OL
+ TYPE\"a\"", "RLI" => "OL TYPE\"I\"", "rLI" => "OL TYPE\"i\"");
...

open (FOUT, "> C:\out.txt") || die "can't open";
print FOUT $content;