#! perl use strict; s[ Optimized \s Parameters (?: .+? \n ){5} (.+?) -+ \n GradGrad ]{ print "$_\n" for map{ (split)[ 2 ] } split "\n", $1; }gsex or warn 'No match';; #### C:\test>perl -n0 junk9.pl junk2.dat 1.1136 1.3392 117.4979 0.9929