if ($text =~ s/^\[//) {
                $out = "[";
            }