[Isto é baseado em você - dados de amostra separados por espaço atual]
Você pode usar uma fatia de matriz em perl
, selecionando os índices usando grep
e alguns módulos aritméticos:
perl -anle 'print join "\t", $F[0], @F[grep { !($_ % 4 - 1) } 1..$#F]' file