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 ];
[download]