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