my $tag = "<b>Test</b>";
$tag =~ s/<b>(.*?)<\/b>/$1/;

print $tag;