use strict;
use warnings;
my $zeichenkette  = '<b>das ist ein Test</b>';
my ($taginhalt) = $zeichenkette =~ m!<b>([^<]*)</b>!;
print "Taginhalt: ", (defined($taginhalt) ? $taginhalt : 'leer')