perl -e 'while(<>) {print $1 if /Twist 1(.+)Twist 2/g;}' < testresults [download]
In reply to Re: Pattern Matching Problem by le in thread Pattern Matching Problem by MrDoney