|foo|bar|||baz|

##</code><code>##

s{ (?<! [^|] ) \s* (?! [^|] ) }{0}gx;

##</code><code>##

$row = join "|", map { s/^\s*$/0/; $_ } split( /\|/, $row, -1 );