$a="1 1";
$b="1 1";
*(=*a;
*)=*b;

##</code><code>##

eval substr($~,substr($),$[,++$.),substr($(,$^F,$.));
sub T {
print chr(sprintf('%x',($=+$=-(eval join(pack('c',hex
(substr($),$[,$.)+$(.chr hex$=+2)),split($",$(),split($",$)))))));
$~=~m;((?<=O).);&&print lc$1;($_)=$^=~m;(.);;$_=lc;print$_++.$_.$";
$_ = 'emazing is the time it takes to travel to the moon,
eons and ions, well, that is just hyperbole.that is the
total amount of time that I want to spend programming.once,
a satolite oribitted our moon over one hundorate
times, over and over again, and that is no exagoration,
no, not at all.while nasa wants to win government money,
working hard is a good idea.but it may not get the money.that
is the reason that I want to help get the money,
but that is not to be.';eval pack('c5',36,++$=,$=,52,55);
@;=map{10*(10+(eval pack('c5',eval$..$^F.$.,$=,ord(
substr$_,$[,$.),$=,$=))/10)}/([^\.]+)./g;unshift@;,97;
print chr for@;;print$";$_ = '227065726C206861636B6572242F22';
print eval pack('c15',map{hex}/(..)/g);}