perlで以下のようなpasswdファイル文字列の"Hoge"の部分だけ小文字にしたいと考えています。
hoge:kwaKjt6IJ/rBs:1100:100:Hoge,,,:/home/hoge:/usr/bin/csh

区切りが:と,の2つあるので下のようにしました。

m/(.*):(.*):(.*):(.*):(.*):(.*):(.*)/;
@MA = split(',',$5);
$MA[0] = lc($MA[0]);
$MA2 = join(',',@MA);
print "$1:$2:$3:$4:$MA2:$6:$7\n";

ところがこれをおこなうと、小文字に変わりますが",,,"が消えてしまいます。
hoge:kwaKjt6IJ/rBs:1100:100:hoge:/home/hoge:/usr/bin/csh

,,,のところはnullだけでなく文字が入る場合もあります。
どうすれば
hoge:kwaKjt6IJ/rBs:1100:100:hoge,,,:/home/hoge:/usr/bin/csh
のようなかたちになりますか？