Select Code to Download

use strict;
use HTML::Parser;
...
    print "$text\n";
  }

$perl sample2.pl
Input: [<tag ref=1>Start<tag ref=2>and more</tag>and end</tag>]
...
and end
</tag>