#! 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';;