DB<35> $line = " a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 \n"

  DB<36> x ($line =~  /(\S+)/g)[0,1,3,5,7,9]
0  'a0'
1  'a1'
2  'a3'
3  'a5'
4  'a7'
5  'a9'

  DB<37>