$/=$number; tells perl to read that number of bytes instead of lines. so 100*1024*1024 = 100 megs.