$ perl -le'$_ = "2|3|||||"; print join " : ", grep ++$i%2, split /(\|)/, "$_|"' 2 : 3 : : : : :