CSV各項目の後スペースをカット

#-------------------------------------
#☆CSV各項目の後スペースをカット
#-------------------------------------
# No11 gyosha_file(業者マスタ)
# 項目名 タイプ 項目長 日本語項目名 備考
# 0 gyosha_no CHAR 12 業者番号
# 1 gyosha_name VARCHAR2 60 業者名
# 2 address1 VARCHAR2 60 住所1
# 3 address2 VARCHAR2 60 住所2
# 4 tel_no1 VARCHAR2 13 電話番号1
# 5 tel_no2 VARCHAR2 12 電話番号2
# 6 daihyo_name VARCHAR2 40 代表者名
# 7 post_no VARCHAR2 7 郵便番号

open(FIN,$ARGV[0]) || die "001 can't open $ARGV[0]¥n";
open(FOUT,">$ARGV[1]") || die "002 can't open $ARGV[1]¥n";
#print " start $aaa ¥n";

while(&ltFIN>)
{
chop;
$_ =‾ s/　/ /g; #　レコード内の全角空白を半角空白に変換
@w = split(/,/,$_);
# @w[0] #　業者番号
$gyono = substr(@w[0],6,6);
@w[1] =‾ s/¥s*$//; #　業者名　行末スペースカット
@w[2] =‾ s/¥s*$//; #　住所１　行末スペースカット
@w[3] =‾ s/¥s*$//; #　住所２　行末スペースカット
#　 @w[4] =‾ s/¥s*$//; #　電話番号1
#　 @w[5] =‾ s/¥s*$//; #　電話番号2
@w[6] =‾ s/¥s*$//; #　代表者名　行末スペースカット
# @w[7] =‾ s/¥s*$//; #　郵便番号

$wkstr = join(" ", @w[2], @w[3]);

$outrec = join(",",$gyono,@w[1],$wkstr,@w[4],@w[5],@w[6],@w[7]);
print FOUT "$outrec¥n";

}

#print " end $aaa ¥n";

close(FOUT);
close(FIN);