#!/usr/bin/perl -l
$_="
        all work and nO play makes jack a dull boy
         aLl work and no play makes jAck a dull boy
                all work and nO PlaY makes jack a dull bOy
        all work and no plaY makes jack a dull boy
          all wOrk and no plAy makes Jack a dull boy
                              all work aND no play makes jack a dUll boy
        aLl work and no play makes Jack a dull boy
            alL Work and no pLay Makes Jack a dull boy
                          aLl work aNd no play makes jack a duLl boy

";s!\s!!g;s!.!$&=~/[a-z]/?"":($a=($z+pos)||-63,$z=-1-pos,chr(95+$a))!eg;
s![jp]!uc$&!eg;print