$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;