#!/usr/bin/perl

use strict;

my $string = "Das ist Martin: [BILD=martin.gif]";

my @values = $string =~ m!\[(([\w]+)\s*=\s*([\w\d.]+))+\]!g;

&parse(@values) if scalar @values;

sub parse {
	my @args = @_;
	print "Parameter:\n";
	print $_."\n" for @args;
}