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