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