#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use HTML::Strip;

binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";



 my $hs = HTML::Strip->new(
                           striptags   => [ 'script', 'iframe', 'head', 'ul', 'ol', 'table' ],
                           emit_spaces => 1
                          );
                          
my $html = "";
while ( <STDIN> ) { 
#	chomp;
	$html .= $_;
}

my $text = $hs->parse($html);

#print $html;	                       
print $text;   
