open (FILE,"file.txt");
while (my $data = <FILE>) {
  chomp($data);
  print ("$data\n");
}
close(FILE);