my @base = $str =~ /\G ( \[ [^][]+ \] | [^][] ) /xg;