use Parse::BBCode;
my $p = Parse::BBCode->new;
my $tree = $p->parse($text);
$tree->walk(bfs => sub {
    my ($tag) = @_;
    say $tag->raw_content if $tag->get_name eq "url";
});