$s = 'A|B||||||||||||||||||||||||||||||||||||';;
print join '-', split /\|/, $s;;
A-B

print join '-', split /\|/, $s, -1;;
A-B------------------------------------