>>526
>>527

こんな感じで書いてみました。

while(<>) {
tr/[０-９]/[0-9]/;
s/(￥D)１(￥D)/$1１$2/g;
（中略）
s/(\D)9(\D)/$1９$2/g;
print;
}

ただ、これだと2回同じ処理をしないといけないですよね。
最初の処理でtr行、次の処理でs行になるんでしょうか。
これを効率よく1回の処理ですませたいのですが、いいやり方をご存知ないですか？