in reply to Sed to perl conversion-- flipping lines in a file

TIMTOWTDI, 
my @lines = <DATA>;
print pop(@lines) for (0 .. @lines);

__DATA__
1. text'1'
2. text'2'
3. text'3'

[download]
--
dominix

In Section Seekers of Perl Wisdom