#!/usr/local/bin/perl -w
# reverse-self.pl -- a program that prints itself

@lines = <DATA>;
foreach $line (reverse @lines) {
chomp $line;
print scalar reverse($line), "\n";
}
print join("\n", @lines), "\n";
__DATA__
__ATAD__
;"n\" ,)senil@ ,"n\"(nioj tnirp
}
;"n\" ,)enil$(esrever ralacs tnirp
;enil$ pmohc
{ )senil@ esrever( enil$ hcaerof
;>ATAD< = senil@

flesti stnirp taht margorp a -- lp.fles-esrever #
w- lrep/nib/lacol/rsu/!#