my $inputdata = '[URL]http://www.perl-community.de[/uRL]';
my $search1 = '\[URL\]';
my $search2 = '\[/[Uu]RL\]';
my @data1 = split($search1,$inputdata);
my @data2 = split($search2,$data1[1]);
my $link = $data2[0];
print $link;

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";
});

my $string = "[URL]http://www.perl-community.de[/URL];
while($string=~m!\Q[URL]\E(.*?)\Q[/URL]\E!c)
{
  my $url=$1;
  print $url."\n";
}

@1 = split (/[URL]/,$a);

my $text = "[URL]http://www.perl-community.de[/URL]";

# split-Pattern: eckige Klammern maskiert; / ist optional; dadurch ist der Ausdruck kuerzer
# das grep sammelt alle Ergebnisse ein, deren Stringlaenge mindestens 1 betraegt
my @fields = grep { length > 0 } split m{\[/?URL\]}, $text;

print "@fields\n";

my $text = "[URL]http://www.perl-community.de[/URL] bla bla [URL]https://example.org[/URL] bla bla ";

# split-Pattern: eckige Klammern maskiert; / ist optional; dadurch ist der Ausdruck kuerzer
# das grep sammelt (sehr grosszuegig) alle Ergebnisse ein, die mit einer Protokoll-Angabe wie "ftp://" oder "http://" beginnen
my @fields = grep { m{\A\w+://} } split m{\[/?URL\]}, $text;

print join "\n",@fields, '';