#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use HTML::Strip;

my @strings = ("das ist ein test","<font coler=blue>das ist ein</font>test");

my $hs = HTML::Strip->new();
for my $string(@strings){
    my $text = $hs->parse($string);
    $hs->eof;
    print $text,"\n";
}