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