.
.
$text = "";
while($line = <IN>)
{
    $text .= $line;
}
.
.

##</code><code>##

local $/; # Ensure line-ends are ignored
$text = <IN>;
.
.