#!/usr/bin/perl
$a='#$%K^&*@#$!@#$!@#$#$(*^%$$#&^$#%^$%^*)*(u*#$%^#$&^%&@@^@^@$%^%^
&^%&#^&(*s%*(&#@%^@^@$%^@%$*#^&#^%&@$%^#$56^@%^@$^%t^(34^$%^%^#$%^#
$%              #$%^$%^     B%^n%($            %^$#    %^$#%    ^#$
%^              $%^$#^       #$%^#$             %^$    #%^*o    %@&
t^&*^h*     ^#$%^&&e@    ^    #$%^&    $%^&*    #$%    ^&$%^    $r%
^$%% Q$     %&%&^%*&    *$@    ^%*&    ^%&^%    %^^    $%^&^    ^%%
^e$*&^&     ^*&^(*^    #%*%#    ^%&    ^%^&%    &%%             &%*
%&^%*&%     r%^%*&$             %^%             ^*&             &*^
*&^*&lI     *%&*^%*             &^%            %*&%    ^(&*&    *((
a^    2     *(&)(*&    @$^*)    )(*    &)(!@#$%@#!&    )(*)(    *&c
&*          (&)(*&)    %^&*(    (&(    *&)(*&(&k(*&    ^*(&^    *&%
$%^        &(&%&$e#    !@#$%    $%^    &#@$%^&r@#$%    ^&*@#    $';
$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;  ; ;g;
tr;[a-z][A-Z];[a-z] [A-Z];;my $zdog;s;([a-z])([A-Z]);$1 $2;g;print;