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