perl -e '$_=lc join fgjkqwxyz,</*>;$_=join $,,sort /[^\W\d_]/g;s/(.)\1*/chr(shift)^$1/ge;print' 43 23 16 16 69 7 9 7 29 2 14 30 77 62 10 2 29 82 59 21 22 29 18 10 85 112

I think this should run on any *nix system; correct me if I'm wrong.