Help for this page
sub o{ ($c,*w,$")=@_;sub t{eval"y/\Q@$c\E/-ÿ/";$_}sort{t($_=$a)cmp t$_=$b}@w }
perl -pi.bak -e 's/\\(\d+)/chr(oct($1))/e' filename