I would try the following:

perl -e 'while(<>) {print $1 if /Twist 1(.+)Twist 2/g;}' < testresults
[download]

but this is untested.