while (<FILE>) {
  chomp;
  next if(m/\.$/);
  print "$_.\n";
}