@arr = grep $_, $str =~ /(\w)|\[(\w+)\]/g;