Easily. Add to the Formats subroutine (around line 4383) something like:

elsif ($HHFormat eq "FTR")
{
$FormatCloserWidget = "/";

$FormatTextBold = "b";
$FormatTextBoldOpen = "[";
$FormatTextBoldClose = "]";

$FormatTextItalic = "i";
$FormatTextItalicOpen = "[";
$FormatTextItalicClose = "]";

$FormatURLOpenText = "url";
$FormatURLCloseText = "url";
$FormatURLQuote = "";
$FormatURLOpen = "[";
$FormatURLClose = "]";
$FormatURLConjunction = "=";

$FormatColorOpen = "[";
$FormatColorClose = "]";
$FormatColorTagOpenText = "color";
$FormatColorTagCloseText = "color";
$FormatColorConjunction = "=#";
$FormatColorScheme = "Standard";

$FormatLineBreak = "\n";

$FormatCardRankOpen = "";
$FormatCardRankClose = "";
$FormatCardSuitOpen = ":";
$FormatCardSuitClose = ":";
$FormatCardRank = "UpperCase";
$FormatCardSuit = "SuitNames";
}

then add something to the select dropdown in the WebPage function.