print join ( '|', map ( $_ || '0', trim( @r )) );

##</code><code>##

print join ( '|', map ( $_ ? $_ : '0', trim( @r )) );