my $lines;
{
    local $/ = undef;
    $lines = <INPUT>;
}