@a=/./g,print@a.$/,sort({1^-vec'
��~Q�N',38*/z/+$i++,1}@a),"
/
"for<>