open F, '<', 'e:\hugefile' or die $^E;
binmode F;
$file = do{ local $/=\(100*1024*1024); <F> };
print length $file;
104857600

print scalar localtime; 
for( my $i=0; $i< (100*1024*1024); $i+=16 ) { 
	print $i if substr($file, $i, 16) eq ("\xff" x 16) 
}; 
print scalar localtime;

Sun Oct 19 16:00:32 2003
Sun Oct 19 16:01:21 2003


##</code><code>##

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

##</code><code>##

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

##</code><code>##

#! perl -slw
use strict;

open F, '<', 'e:\100MB' or die $!;
binmode F;

print 'Slurping...          ', scalar localtime;

my $file;
{
	local $/ = \(100*1024*1024);
	$file = <F>;
}
print 'Slurped. Searching...', scalar localtime;
print 'Not found' unless index( $file, "\xff" x 16 );
print 'Searched.            ', scalar localtime;
__END__
P:\test>junk2
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