第1引数を置換処理するのはサブルーチンだろ。少しはPerl使え。