Select Code to Download

$line = 'Iteration {Applied Field}  {Total Energy}    Mx';
while($line){
...
{Applied Field}
{Total Energy}
Mx

$line = 'Iteration {Applied Field}  {Total Energy}    Mx ';
print "$1\n" while $line=~s/(\w+\s+\w+|\w+)[}|\s+|\s+{]//;
...
Applied Field
Total Energy
Mx

$line = 'Iteration {Applied Field} A  {Total Energy}    Mx  F G {Third
+ test line}';
print "$&\n" while $line=~s/(?<={)[\w\s]+(?=})|\w+//;
...
F
G
Third test line