#!perl -p
~/ /;$_=$`<$'?K:S