#!/usr/bin/perl

use strict;
use warnings;

my $var = "<font coler=blue>H</font><>";

(my $test1 = $var) =~ s!<.+>!-#-!g;
print "Test1: $test1\n";

(my $test2 = $var) =~ s!<.+?>!-#-!g;
print "Test2: $test2\n";

(my $test3 = $var) =~ s!<.*>!-#-!g;
print "Test3: $test3\n";

(my $test4 = $var) =~ s!<.*?>!-#-!g;
print "Test4: $test4\n";

Test1: -#-
Test2: -#-H-#-<>
Test3: -#-
Test4: -#-H-#--#-