Select Code to Download

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