print$a=$_=<>,(join$/,!s/./{\u$&,\l$&}/g,glob)!~$a,$',$`