修改文件问题

想在perl程序的#! /usr/bin/perl后加一行Copyright (C)

以下为代码
#! /usr/bin/perl
$^I = ".bak";
while (<>) {
  if (/^#!/) {
    $_ .= "## Copyright (C) 20XX by Yours Truly\n";
  }
}

假如我想把当前目录下所有PERL后都加那一行
输入./name *

结果发现，我的perl程序全部被清空，不知道为什么没有改变？

你只读不打怎么成

哦，刚接触，一些概念还没弄清楚
我也是觉得只是在#!匹配行后加上了Copyright
但这个时候$_已经变成了匹配行及所加的copyright
我print的时候，应该print什么呢？

#! /usr/bin/perl
$^I = ".bak";
while (<>) {
  if (/^#!/) {
    $_ .= "## Copyright (C) 20XX by Yours Truly\n";
  }
  print;
}

哦，谢谢，实质也就是print $_