$/x=2;print uc(<>^<>=~s/ //gr)=~s// /gr