$ perl -le '@l = grep {$i++ % 2} split /(..)/, "010203040506"; print join "|", @l'