my @mails;
{
  local $/ = "\nFrom ";

  @mails = <>;

  chomp(@mails);

  $mails[$_] = "$/.$mails[$_]" foreach 1 .. $#mails;
}