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