for(<>){$_=~s/([A-Z])/ \l$1/g;print$_}