in reply to Re: Extracting selected fields form file record (updated)
in thread Extracting selected fields form file record
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 ];
In Section
Seekers of Perl Wisdom