» echo "[ Edit ] [ Search Google ] [ Configure ]"|perl -pe 's/\[.*//'

while(my $token = $parse->get_token) {
	next unless $token->is_text;
	print $token->as_is unless $token->as_is =~ /\[.*/;

}

Output:
EditSearch GoogleConfigure ]