{local $/;$i=length($x=<DATA>);}print substr($x,$i,1) while($i--);print$/,$x;
__END__
__DNE__
;x$,/$tnirp;)--i$(elihw )1,i$,x$(rtsbus tnirp};)>ATAD<=x$(htgnel=i$;/$ lacol{
Note that non-ascii characters in the above source code will be escaped (such as \x9f).