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