my $fh = IO::File->new($MAILBOX)
  or die "unable to read mailbox '$MAILBOX': $!";
my $mail;
{
  local $/;
  $mail = <$fh>;
}

##</code><code>##

my $mail = do
{
  my $fh = IO::File->new($MAILBOX)
    or die "unable to read mailbox '$MAILBOX': $!";
  local $/;
  <$fh>
};