$entry =~ s/\[email(?:\=(.+?))?\](.+)\[\/email\]/"<a href=\"mailto:\"".eval($1 ? $1 : $2)."\">".$2."<\/a>"/ige