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

##</code><code>##

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