[BILD:test.gif PARAMETER1:wert PARAMETER2:wert]

$string =~ s/\[BILD:(.+)\]/bild($1)/ge

$string =~ s/\[BILD:(.+)\]/bild(\%parameter)/ge;

sub bild {
   my $hashref = shift;
   print "Bild: $hashref->{BILD}\n";
}

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

#!/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;
}

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

#!/usr/bin/perl

use strict;

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

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

&parse(@values) if scalar @values;

sub parse {
	my %params = @_;
	print $_ . " = ".$params{$_}."\n" for keys %params;
}

NAME2 = hallo

my @values = split(/\s*=\s*|\s+/, ($string =~ m!\[(.+?)\]!s)[0]);

[BILD=martin.gif ALT="hier sehen wir Martin" BREITE=300]

my @values = map{split(/\s+(?=\w+$)/,$_)}split(/\s*=\s*/, ($string =~ m!\[(.+?)\]!s)[0]);

#!/usr/bin/perl

use strict;

my $string = 'Das ist Martin: [BILD=martin.gif NAME="asd ass as" NAME2=hallo]';

my @values = map{split(/\s+(?=\w+$)/,$_)}split(/\s*=\s*/, ($string =~ m!\[(.+?)\]!s)[0]);

&parse(@values) if scalar @values;

sub parse {
	my %params = @_;
	unless (-e $params{BILD}) {
		return "File not found\n";
	}
}

$string=~s!\[(.+?)\]!parse(map{split(/\s+(?=\w+$)/,$_)}split(/\s*=\s*/,$1))!gse;