http://qs1969.pair.com?node_id=76947


in reply to Regular expression

Maybe this will work:
while (<DATA>) { print "$1 $2 $3\n" if /^\S+\s+(\S+)\s+(\S+)\s+\S+\s+\S+\s+\S+\s+(\ +S+)$/; }
Might be not too efficient.