Try this one:
Syntax: $rbkx(text or %variable here)
Example: $rbkx([1] ]2[ ]3[)

 alias rbkx { return $regsubex($1-,/(\[[^\s].*?\])/ig,$null) }