$str = 'Iteration {Applied Field} {Total Energy} Mx Fx {a} B C D {E F} G';; print for split '(?:}\s+{|\s+{|}\s+|\s+(?!\S+}))', $str;; Iteration Applied Field Total Energy Mx Fx a B C D E F G