大家都来看看，帮帮忙哈？？

我在一个记事本里面写下如下内容（该文件位于C:\123.TXT）：

TCID1000, PASS
TCID1001, FAIL

我用PERL

open(FILE, "C:\\123.txt" or die("can't open 123.txt";
undef $/;
$text=<FILE>;

my $message_body = $text;

$msg->attach (
　．．．．．．
  Data => $message_body
　．．．．．．
)
但是这个代码我发出来的邮件ＢＯＤＹ里面显示的内容是：

TCID1000, PASS TCID1001, FAIL

如何修改才能在我发出来的邮件里面把ＢＯＤＹ显示成为：

TCID1000, PASS
TCID1001, FAIL

这种格式呢．谢谢各位拉