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