>>524
print に出力先を指定する。
printf qq|<textarea cols="80" rows="25" tabindex="20" accesskey="R">%s</textarea>|, $Out_strings;
これなら標準出力に。
local *Out_HTML;
open Out_HTML, ">$HTML_filename" or die $!;
printf Out_HTML qq|<textarea cols="80" rows="25" tabindex="20" accesskey="R">%s</textarea>|, $Out_strings;
close Out_HTML;
これならファイルに。
ほかいろいろ。