$_="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,$_),$/
Enjoy!
Dave
In reply to Schwartzian transform JAPH by davido
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |