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