Select Code to Download

perl -lne 'sub out {
               s/\s+/ /g, print for @t;       # Normalize whitespace, 
+print buffers.
...
               @p = split /\|/;               # Split the line on vert
+ical bars.
               $t[$_] .= $p[$_] for 0 .. $#p; # Add each part to its b
+uffer.
           }' < input

}{ out();