use Parse::BBCode;
use URI::Find;
my $finder = URI::Find->new(sub {
    my ($url) = @_;
    my $title = $url;
    if (length($title) > $max_url) {
        $title = substr($title, 0, $max_url) . "...";
    }
    my $escaped = Parse::BBCode::escape_html($url);
    my $escaped_title = Parse::BBCode::escape_html($title);
    my $href = qq{<a href="$escaped">$escaped_title</a>};
    return $href;
});

my $p = Parse::BBCode->new({
    tags => {
        # parsen von text ausserhalb/innerhalb von tags
        '' => sub {
                my $e = $_[2];
                my $count = $finder->find(\$e, $escape);
                $e =~ s/\r?\n|\r/<br>\n/g;
                $e
        },
        # parsen von [youtube] tags
        youtube => # code aus meinem anderen posting
    },
});