;$A="H"
;$=.=/A/
                    -65 #
;$;=$A.$;
;$#{($;or$A)}="J"
;$_=$#{_}- 
                      -75 #
;chr                 
;print chr
;$;=~s|^(H).|AP$1|;
;print$;;
                          -85 #