perl - ファイルから適切に読み取り、入力を処理し、出力を 2 番目のファイルに書き込む最良の方法

Question

#!/usr/bin/perl

 open (FILE, 'data.txt');
 while (<FILE>) {

 ($ip,$me,$id) = split(" ");

 print "Ip: $ip\n";

 open(F,'>ip.txt') || die $!;

  print F  "$ip \n" ;

close(F);

 print "me: $me\n";
  print "ID: $id\n";
 print "---------\n";
 }
 close (FILE);
 exit;

perlprint が書き込み先のファイルの改行内に出力するようにします。入力ファイルの行が null かどうかを確認するにはどうすればよいですか。

出力を次のようにしたいと思います（ip.txt）：

123.121.121.0
545.45.45.45 
..
..
etc