#!/usr/bin/perl

$old_line = "";

while(<STDIN>){
  chop();
  if(/^From/){
    s/From: //;
    if($old_line ne ""){
      chop($old_line);
      print "$old_line\n";
      $old_line = "";
    }
  }
  s/To: //;
  $old_line .= "$_ ";
}

chop($old_line);
print "$old_line\n";