use warnings;
use strict;

my @lines;

push @lines, $_ while do { $_ = <> } ne ".\n";
print reverse @lines;
[download]