my $file;
{
    local $/ = \(100*1024*1024);
    $file = <FILE>;
}