$ perl -le'print join " : ", split /(\|)/, "2|3|||||"'
2 : | : 3 : | :  : | :  : | :  : | :  : |

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$ perl -le'my @field = grep ++$i%2, split /(\|)/, "2|3|||||"; push @field, "" unless $i%2; print @field'
2 : 3 : : : : :