Perlでマッチした結果を引数にして置換する。

Perlの面白みはこの辺にもりますよね。 コアっぽい動きを簡単に実装して体験できちゃう♪