Select Code to Download

open F, '<', 'e:\hugefile' or die $^E;
binmode F;
...
Sun Oct 19 16:00:32 2003
Sun Oct 19 16:01:21 2003

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

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

#! perl -slw
use strict;
...
Slurping...          Mon Oct 20 00:29:21 2003
Slurped. Searching...Mon Oct 20 00:29:26 2003
Searched.            Mon Oct 20 00:29:30 2003