$body = "Foto von mir: [BILD:ich.jpg]";

	$body =~ s/\[BILD:([a-zA-Z_0-9.]+)\]/eval{
		-e "\/srv\/www\/kukla\/images\/$1" ? "<p><img src=\"\/images\/$1\"><\/p>" : "nicht gefunden"
	}/gsex;