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