...
{
    local $/ = q{};
    while ( <> )
    {
        ...
    }
}
...