http://www.perlmonks.org?node_id=823004


in reply to Split on every second character

Or still using split, you can just drop every second element from the result list:
$ perl -le '@l = grep {$i++ % 2} split /(..)/, "010203040506"; print j +oin "|", @l'
But the solutions provided by other monks are definitely nicer.