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