($\={})=~s/(?<=.).+//&&print+(q/J/,\//=~
/..(\S)/&&$1.$2.($^X=~/.+\/(.)/&&uc($1)))

##</code><code>##

($\={})=~s/(?<=.).+//&&print+(q/J/,\//=~
/..(\S)/&&$1.$2.($^X=~/\W(.)\w+\.?\w*?$/&&uc($1)))