无法使用格式变量和write（）打印长字符串

Question

我有以下代码将字符串打印到控制台。但是当我传递大量文本时，它不会打印完整的文本。我想知道是否还有其他方法可以将文本打印到控制台和文件，而不管文本或字符串大小是什么？

=＆GT;一些Formtated Text =由于网站上的格式问题无法发布示例文本

示例代码：

format LOG_PREVIEW = Some Formatted Text
format LOG_STANDARD = Some Formatted Text

    if ($Test::Preview) {
        $~ = 'LOG_PREVIEW';
        write();
    }
    else {
        $~ = 'LOG_STANDARD';
        write();        
    }