Help for this page

Select Code to Download


  1. or download this
    |foo|bar|||baz|
    
  2. or download this
    s{ (?<! [^|] ) \s* (?! [^|] ) }{0}gx;
    
  3. or download this
    $row = join "|", map { s/^\s*$/0/; $_ } split( /\|/, $row, -1 );