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