#!/usr/bin/perl

use strict;
use warnings;
use HTML::BBCode;

my $bbcode = HTML::BBCode->new(allowedTags => [qw(i size)], escape_html =>1);

my $string = "[size=3]Ha<test>llo[/size],\n[i]dies[/i]\n\nist ein\n\n[b]fetter Text[/b].[dd]test[/dd]\n";

print $bbcode->parse($string);