#!/usr/bin/perl -w
 #1|!s[!s"sc-[;s[us
  open(s0,$0);$s2s0=
   "";while(<s0>)#$s=
    #o$s>]0se*][=5[]]-
     {chomp;if(#/s2_0=~
      /^\s*#(?!!)(.*)$/)
       #e??{!~_()=*|i?[i_
        {$s2s0.=$1}} $s2s0
         =~s/^\s*#//g;close
        #)b0sib0s?=*~5|]|i
       (s0);$s2s00=qq%otx
      <e>a:c lhiTnfrspbz
     g1/=-5dw0y\\kmC% ;
    #_*]e5+b05[!s[ib0#
   $s2s00=~s/\n//g;#$
  $s2s00 #=~#<br>#gi
 =~s/\s{2,}//g #/s/
#|!s=5|]|i_c[]]|/=
 ;$s2s0_s=qq%|su0[b
  e;5=]\${a!#i:-*,~(
   o_"\%?/)c'+>1% #%s
    ;$s2s0_s=~s/\n//g;
     $s2s0_s=~ #s/[a-z]
      s/\s{2,}//g;$s2s0s
       #:{,[_(bo'0#|!s=5|
        ="";$s2s0_ss=-1 #/
         ;while ( $s2s00 =~
        /(.)/g ){ $s2s000=
       substr($s2s0_s, ++
      $s2s0_ss,1)#$s2s0-
     ;$s2s0s_s{$s2s000}
    =$1;}$s2s0_ss=0 #s
   #]|i_/${s[=:{,[_%b
  ;while($s2s0) { ++
 $s2s0_ss;$s2s00_ =
substr($s2s0,0,1);
 $s2s022=$s2s0s_s {
  $s2s00_}; $s2s0 =~
   #0*ibaie?{e!s0o#|!
    s/\Q$s2s00_\E//;#s
     $s2s0s.=$s2s022;if
      #sb0*ib'o0o#|!sb0o
       ($s2s0_ss==22){#++
        $s2s0s.="\n\n" } }
         print $s2s0s;#$|=0
          #s?b0sib0ose*][b