#!/usr/bin/perl
use strict;
use warnings;

my $message = <<EOT;
<p>Dies ist ein <b>Testtext in HTML</B>,
der <a href="link">einen Link</a> und <i>andere </i> Tags
enthalten soll. <br />
<img src="foo.png" alt="Foo" /> <img src="bar.png" alt="bar"></img>
</p>
EOT

$message =~ s~<([^bi]|/[^bi]|/?[^/>]{2,}/?)>~&lt;$1&gt;~gi;

# oder vielleicht so: (nur oeffnende Klammern ersetzen)

# $message =~ s~<(?!b>|i>|/b>|/i>)~&lt;~gi;


print $message;