Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
use HTML::TokeParser::Simple;
...
}

print $abstract, $/;
  2. or download this
    #!/usr/bin/perl -w
use strict;
use HTML::TokeParser::Simple;
...
$abstract .= join '', map "</$_>", reverse @stack;

print $abstract, $/;