谁能帮我注释一小段perl程序,尤其是if语句判断的是什么啊,while () 是自动读一个字符串吗,存在哪里