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

print $text;