"JAH"? My $^X contains no "/". Keeping in spirit of using references, perhaps you should get your "P" from

>perl -e"print ref qr//"
Regexp
[download]

($\={})=~s/(?<=.).+//&&print+(q/J/,\//=~/..
(\S)/x&&$1.$2.((ref qr//)=~/.+(.)/&&uc($1)))
[download]