s/([A-Z])/ $1/g,$_=~tr/[A-Z]/[a-z]/,print $_ for<>