my $message = '';

open(MESSAGE, '+>>', \$message) or die "no message $!";
open(WHOM, '>>&=MESSAGE') or die "no whom $!";
open(WHAT, '>>&=MESSAGE') or die "no what $!";

print WHOM "I say 'whom'\n";
print WHAT "I say 'what'\n";

my $text;
while (my $line = <MESSAGE>) {
    print $line;
    $text .= $line;
}

print $text;
__END__
I say 'whom'
I say 'what'
I say 'whom'
I say 'what'