push @array, $2 ? $2 : $3 
	while $str =~ /(([A-Z])|\[([A-Z]+)\])/g;