#!/usr/local/bin/perl -w
use strict;
@$=qw/':&%C:V5R"@``%<&5R;`H`(86YO=&AE<@H`%:G5S=`H`/;$a.=$_
for reverse split//,unpack'u',"@$";($_,$a)=($a,$/);$a.=
reverse"$_ "for split/$a/;$_=$a,s/^\s+(.*)/$1\n/g;print;