$;=$\;$_=$"x5;$b=$|;for$%(map{$_*.04,$_/5=>$_}map{ord}split??,
"A\4]bVvYd0\tR{4utI8gGbTPy\cNYXtu^Ku,"){if($%%5&4){$|[$a++]=chr
$;;$;=0;print$_^=join$\,@|if!($a%=5);}else{$;=($;*4+$%%5^2);}}