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