perl -le 'print for map { join"/",map ord,split"",$_}
             sort map {chomp;join"",map chr,@x=split"/",$_}<>'