Re^2: Extracting selected fields form file record (updated)

[rsFalse]

We can omit parentheses, i.e. capture group number 1 isn't necessary.

my( $first, $second, $third, $fourth, $fifth, $sixth ) = ( $line =~ m/
+\S+/g )[ 0, grep { $_ % 2 == 1 } 1 .. 9 ];