my $lines = '';
{
    local $/;
    $lines = <DATA>;
}