$body =~ s/\[BILD:([a-zA-Z_0-9.]+)\]/foo($1)/gsex;