#! /usr/bin/perl

while (<>)
{
  if (/^[-+ ](.*)/)
    {
      print $1;
      print "\n";
    }
  else
    {
      print;
    }
}
