<>;@_=glob<>;$,=$";print"@_">($a=pop@_)?No:(Yes,grep($a<$_,@_),sort{1}grep$a>$_,@_)