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