perl，对多行文本替换的问题

Question

root@luis-VirtualBox:~# tail perl.pl
open FILE, "< pinglist1.txt"
or die "Can't open the file:$!";
open FILE1, ">> perl_logfile";
while (<FILE>) {
$lines = join '', <FILE>;
s/^/hehe\：/gm;
print FILE1 }

root@luis-VirtualBox:~# cat pinglist1.txt
hehe
haha
zzz
done
执行程序：
root@luis-VirtualBox:~# ./perl.pl
输出：
root@luis-VirtualBox:~# cat perl_logfile
hehe:hehe

输出为什么是这个？应该是每行前面都打印hehe：啊？怎么实现呢？

Answer 1

$lines = join '', <FILE>;这一句不起任何作用，在这里，你可以测试一下，这里$lines等于后3排。先实现输出如下：
hehe：hehe
hehe：haha
hehe：zzz
hehe：done
再简单不过，把我前面说的那一行删掉就可以了。我已经测试通过了。

追问

谢谢，我也测试成功了。
但是为什么加入“$lines = join '', ;”后，在输出文件log_profile里只输出了第一行：
hehe：hehe？
而且$lines我觉得应该等于全部行，但是实际为什么只等于后三行？

追答

你知道这句话是干什么的么？我总觉得你这里就是把别人句子抄过来用了，却不知其含义。前面不是有while（）么，判断就消耗了一句了，然后你成功了。进入循环，你这句话就把剩下的所有行全部通过写在$lines里面了，当然就是最后三行了。而一开始你想加hehe的也只有第一句话，就是你最开始的结果。
其实perl程序虽短，但要注意理解，必要的时候要写注释，以便于以后使用或者他人查看，个人建议

Answer 2

$lines 就是吃干饭的.直接s###g不就加上hehe: 了
while(my $line=<DATA>){
$line=~s#^#hehe\: #g;
print FILE1 $line;
}

Answer 3

try foreach