Help for this page

Select Code to Download

Select or download this

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

Select or download this

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