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