If FILE is the file in question and you have opened it, this should work:

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