（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

連続した同一文字列の圧縮（文字数を減らす）ていうのやりたいんですが
どんな方法がいいですか？

perlで言うところの
s/(\-\-|==)+/$1/g;
みたいのが簡潔に表記できないかなぁと。
「--------==========」→「---===」になります。

http://homepage1.nifty.com/ht_deko/algo002.html
みたいなルーチンで一文字ずつ指定するか、
http://homepage1.nifty.com/bmonkey/delphi/delphi.html
のAWK関数郡を使うのがいいんですかねぇ

　　　 ∧ ∧　　　／
　　∩(,,TДT)　＜　教えてくださいー
⊂,,⌒　,,つつ.　　＼
　　￣￣