while (read(STDIN, $_, 4095)) { $_ .= ; ... }