#!/usr/bin/perl  -w

use strict;
use diagnostics;

my (@lines);

while (<>) {
  if ($_ eq ".\n") { last;}
  push @lines,$_;
}

foreach (reverse @lines) { print; }