Perlの超基本スクリプト

http://tama-san.com/index.html#2007-11-26より

# utf8でファイル入出力
use utf8;
foreach $ARGV (@ARGV) {
open(OUT,">:utf8","$ARGV.new") unless -e "$ARGV.new";
open(IN,"<:utf8","$ARGV") || die "can't open";
while () {
s/^/0/; #ここで処理
print OUT;
}
close IN;
close OUT;
}

UTF-8を使う環境にないだけに悲しい。。。
新しい環境の職場を捜さなくては。と、思いつつも繁忙期なだけに抜けたら迷惑かけるよなぁ～。