use HTML::Parser;

my $parser = HTML::Parser->new(
	api_version => 3,
	default_h => [sub { print $_[0] unless lc $_[1] eq 'script' }, 'text,tagname'],
        comment_h=> [""],              
);
$parser->parse_file($file);