perl处理一文件?

文件内容:

10.55.23-25
10.55.78
10.54.66-71

通过perl处理,得到文件内容如下:
10.55.23
10.55.24
10.55.25
10.55.78
10.54.66
10.54.67
10.54.68
10.54.69
10.54.70
10.54.71


就是把范围拆开了,线等,初学

#!/usr/bin/perl

open(File,"data.txt") or die"$!";
while(<File>)
{
  chomp;
  if(/(\d+\.\d+\.)(\d+)-(\d+)$/)
  {
  for(my $i=$2;$i<=$3;$i++)
  {
  print "$1$i\n";
  }
  }
  else
  {
  print "$_\n";
  }
}
close File;

自己调整优化吧！