#!perl -w use open IN => ':reverse'; print while(<>);