print$;=$_=<>,s/./{\U$&,\L$&}/g|join($/,glob)!~$;&&"$'
$`"