Select Code to Download

>perl -wMstrict -le
"my $str = 'Iteration {Applied Field}  {Total Energy}  {Foo}  {  a b  
+ c d  }  Mx';
...
 printf qq{'$_' } for @fields;
"
'Iteration' 'Applied Field' 'Total Energy' 'Foo' 'a b   c d' 'Mx'