{
  local $/;
  my ($num, $from) = <FILE> =~ m{
    mailbox \s+ (\d+): \s+
    From: \s* (.*)
  }x;
}