#!/usr/bin/perl -X  # camel code rearranged to print the first character of 中国 (China).
use strict;

                                  $_='eval
                                  ("seek\0
                                  40DATA,0
                                  ,0;");fo
                                  reach(1.
                                  .3){<DAT
                                  A>;}my@c
                                  amel1hum
                                  p;my$cam
                                  el;my$Ca
                                  mel;whil
                                  e(<DATA>
                                  ){$_= sp
                                  rintf("%
                                  -69s",$_
                                  );my@dro
                                  medary1=
                                  split(//
                                  );if(def
                                  ined($_=
<DATA>)){@camel1hump=split(//);}while(@dromedary1){my$camel1hump=0;();();my
$CAMEL=3;if(defined($_=shift(@dromedary1))&&/\S/){$camel1hump+=1<<$CAMEL;}$
CAMEL--;if(defined($_=shift(@dromedary1))&&/\S/){$camel1hump+=1<<$CAMEL;}$C
AMEL--;if(defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CA
MEL--;if(                         defined($                       _=shift(@
camel1hum                         p))&&/\S/                       ){$camel1
hump+=1<<                         $CAMEL;;}                       $camel.=(
split(//,                         "\040..m`                       {/J\047\1
34}L^7F@"                         ))[$camel                       1hump];}$
camel.="\                         n";}@came                       l1hump=sp
lit(/\n/,                         $camel);f                       oreach(@c
amel1hump                         ){chomp;$                       Camel=$_;
y/LJF7\17                         3\175`\04                       7/\061\06
2\063\064                         \065\066\                       067\070/;
y/1234567                         8/JL7F\17                       5\173\047
`/;$_=rev                         erse;prin                       t"$Camel\
n";}forea                         ch(@camel                       1hump){ch
omp;$Camel=$_;y/LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
$_=reverse;print"\040";}';;s/\s*//g;;eval;eval("seek\040DATA,0,0;");undef$/
;$_=<DATA>;s/\s*//g;();;s;^.*_;;;map{eval"print\"$_\"";}/.{4}/g;__DATA__\01
2\103\154\157\156\145\144\040\106\162\157\155\040\143\141\155\145\154\040\1
                                  43\157\14
                                  4\145\054
                                  \104\162\
                                  141\167\0
                                  40\141\04
                                  0\103\150
                                  \151\156\
                                  145\163\1
                                  45\040\14
                                  3\150\141
                                  \162\141\
                                  143\164\1
                                  45\162\04
                                  0\172\150
                                  \157\156\
                                  147\056\0
                                  40\012\04