入力行の11バイト目から30バイト目までの文字列を全角空白

#---------------------------------------------------------------------
#☆入力行の11バイト目から30バイト目までの文字列を全角空白10文字に置換する
#---------------------------------------------------------------------
open(FIN,$ARGV[0]) || die "001 can't open $ARGV[0]¥n";
open(FOUT,">$ARGV[1]") || die "002 can't open $ARGV[1]¥n";

while(&ltFIN>)
{
$rec = $_;
substr($rec,10,20) = "　　　　　　　　　　";
print FOUT $rec;
}

close(FOUT);
close(FIN);