$line = 'Iteration {Applied Field}  {Total Energy}    Mx';
while($line){
        $line =~m/\w+|{\w+\s+\w+}/; $line = $';
        print $&,"\n";
}

-----OUTPUT-----
Iteration
{Applied Field}
{Total Energy}
Mx