如何通过perl程序将数据以txt文本输出

你要把 你读出来的 东西  付给 $data

例如:
$data = "123456789";

再接

open FH,'>data.txt' or die "Can't open file: $!";
print FH $data;
close FH;
我输出的东西上百行啊!难道要一行一行的赋值?
我说朋友  你换种你熟悉的语言吧

不是兄弟我不帮忙 估计给你讲明白了  都明天了

要不你把代码贴上来
兄弟  留个QQ把 我发代码给你!
你不方便公开你QQ的话 我把我的QQ发你 179792381
我这儿不让用 qq
那邮箱!
我邮箱 179792381@qq.com  你发个消息给我!
我把代码发到你邮箱里!
yu_11 # 163.com
你太有才了,在你的帮助下我搞定了!你是我哥,你是我亲哥啊!!!