$_="a2kvrlpntieoscatek eafhshjubrp mewlq rrxjacungohtd!";($x,$_)=/(
\D\S)([^Z]+)/x;print+(map{$$_[0]}sort{$$a[1]cmp$$b[1]}map{[split//]
}unpack$x x ord chop,$_),$/