sysread $fh, $input, 1000000; #chop $input; $input =~ s/\r\n//g;