in reply to Append Next Line To Current Line

  1. Read a line $current until exhausted.
  2. Compare with previous line $previous.
    1. If equal, append.
    2. If not equal, do nothing.
  3. Output.
  4. Move $current to $previous.
  5. Go to 1.

In Section Seekers of Perl Wisdom