$input = ...your text here...;
$result = /.*\[(.*^[)\].*/;