如何print form 到一个变量中

我的初步程序如下

use Text::Autoformat qw(form);

my $format = <<EOF;
||||||||||||        |||||||||||||||||||||  |||||||||||||||| |||||||||||||||       
EOF
my $id = "ChangeAdmin";
my $date = "2007-10-22 15:14:14";
my $from = "among the newb";
my $subject = "Autoformatted message";



my $log="===========================================================================\n";
print $log;
print  form($format, $id, $date, $from, $subject);
print $log;
print  form($format, $id, $date, $from, $subject);

现在的要求是把 我指定的值按照上面的格式写入到一个变量中
格式是这样的：
===========================================================================
ChangeAdmin      2007-10-22 15:14:14    among the newb   Autoformatted
                                                                                                    message
===========================================================================
ChangeAdmin      2007-10-22 15:14:14    among the newb   Autoformatted
                                                                                                     message
===========================================================================


因为其中的值可能长度太长，就要跨多行。
跨完以后还要加一个============

原来的数据是在一个变量中，现在每次都要取出原来的值，然后把这些需要的数据附加到原有数据的最后。

请问大家如何print form到一个变量中？

其他程序方面的控制大家有啥好的建议。

刚才编辑的时候看的格式还好呢。
现在发上去了。又不一样了。

“把这些需要的数据附加到原有数据的最后”？直接用“.=”不行吗？

用sprintf可以输出数据到变量的

汗～
你不 print 不就行了。
$text = form( .............. );