Как удалить все что в квадратных скобках?

$t = 'слово слово слово слово слово слово слово слово слово [слово] слово слово слов?'
$p = '(?is)(\[.*?\]\s?)'
$result = StringRegExpReplace($t, $p, '')
ConsoleWrite($result&@LF)

$sPatern = "(?s)\[.*?\]"
$sResult = StringRegExpReplace( $sText, $sPatern, '' )