As far as getting into the internals with sort, just
told Perl to
sort{1}split//,"Just another Perl hacker.\n",
printed the result (assigned to an array and interpolated),
and then worked out from the ordering it produced where
it was moving things, and where I had to put them to get
the right order.