HTML-StripScripts
1 match

 view release on metacpan or  search on metacpan

examples/tags/tags.pl  view on Meta::CPAN 

use warnings;

use blib;
use HTML::StripScripts::Parser();
use MyStripScripts();

my $html = <<HTML;
<html>
  <head>
    <title>Test</title>
    <meta http-equiv="content-type" content="text/html" />
    <link type="text/css" rel="stylesheet" href="/styles.css" />
  </head>
  <body>
    Some text
  </body>
</html>
HTML


my $original = HTML::StripScripts::Parser->new({



( run in 1.595 second using v1.01-cache-2.11-cpan-d7f47b0818f )