@main[]
^check[abc;B;i]<br />
^check[abc;B;I]<br />
^check[abc;B]<br />

@check[sText;sLetter;sOptions]
^if(^sText.match[$sLetter][$sOptions]){y}{n}