>perl -le"print join '|', split /\|/, '|a|b|c||'"
|a|b|c

>perl -le"print join '|', split /\|/, '|a|b|c||', -1"
|a|b|c||