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