Re: Regular expression

[le]

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.