teru's graffiti

久々に Perl スクリプトを書きました。
ぜんぜん覚えてない～。(^_^;

ファイルを読み込んで編集してファイルに書き出すだけなんだけど、
べた～っとしたソースでとりあえず処理だけこなしました。
また使うときに改良するということで。

後々何かあるかもと Perl でやろうと思って処理系からインストールしましたが、
awk でも十分だったかも。
余裕があれば Lua とかでやってみてもよかったかなぁ。