Assuming you have already opened FILE to the file in question.

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

Dingus

---

Enter any 47-digit prime number to continue.