$inhalt =~ s/\<.+?\>//g;

$inhalt =~ s/\<.+?\>//g;

my $tag = HTML::Strip->new();

  my $inhalt = $tag
  $tag->eof;

#!/usr/bin/perl

use strict;
use warnings;

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

for my $string(@strings){
    $string =~ s!(<.*?>)!$` ne ''? " " : ''!eg;
    print $string,"\n";
}

#!/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";
}

$inhalt =~ s/\<.+?\>/ /g;
$inhalt =~ s/^\s//;