As any theoretician knows, success at anything, even obfuscation, is attained through the use of sophisticated algorithms.
#!/usr/local/bin/perl -w
use strict;
my$t=",rtlr\n h ahkP tcraneeeusoJ";
my$s=join'',sort split//,$t;
my(@t);
while ($s=~/(.)\1*/sg){my$l=$1;push@t,(pos$t)-1 while$t=~/$l/g}
my$i=0;print map{substr($s,$i=$t[$i],1)}(1..@t)
Simple, concise, easy to understand. Exercise: modify the value assigned to $t so that the program prints your own name.