print eval uc=~s/(.).*X/sub $1 {"\@_"$',v10}#/rfor<>