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