s/S\./SG/g,y/./K/,print/SKG/?No:"Yes
$_"for<>