use strict;
use warnings;
use charnames qw(:full);
use LWP::Simple;
use HTML::Strip;
use Encode::Encoder qw(encoder);

binmode STDOUT, ":encoding(UTF-8)";

my $url = "http://www.svd.se/nyheter/utrikes/spricka-mellan-u-lander-oroar_3926455.svd";
#my $url = "http://www.expressen.se";
my $html = get($url);

defined $html or die "Can't fetch HTML from: ",$url;

my $hs = HTML::Strip->new();
my $clean_text = $hs->parse( $html );
print $clean_text;