C:\test>perl -e"print 'x' x 1024 . '~' for 1..37*1024; print 'x'" > huge.file

C:\test>dir huge.file
18/03/2010  23:58        38,835,201 huge.file

C:\test>\perl32\bin\perl -e" @{ $h{lines } } = split'~', <>" huge.file

##</code><code>##

C:\test>perl -e"print 'x' x 32 . '~' for 1..37*32*1024; print 'x'" > huge.file

C:\test>dir huge.file
19/03/2010  00:06        40,009,729 huge.file

C:\test>\perl32\bin\perl -e" @{ $h{lines } } = split'~', <>" huge.file

##</code><code>##

perl -e"local $/ = '~'; push @{ $h{lines } }, $_ while <>; <STDIN>" huge.file