Oo, nice! And with inspiration once again from btrott's substitution approach:

sub canonical {
($_,$a,%h)=@_;s/./substr"a$a",$h{$&}||=keys%h,1/gse;$_
}
[download]

Back down to 54!