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, '';