my @result = split( /(\|)/ );

##</code><code>##

[ 'A', '|', 'B', '|', '|', '|' ]