読み込んだCSVファイルから、nullをスペースに置き換えて出力したいです。

nullは,,のところです。
1レコード17項目です。

読み込みファイル
01,,01,4ｶﾅ-0001,５漢字－０００１,６,７年月-0001,８日付-0001,９－０００１,１０ー０００１,１１ー０００１,１２ー０００１,3,4,１５ー０００１,6,17000001
02,0002,,4ｶﾅ-0002,５漢字－０００2,６,７年月-0002,８日付-0002,９－０００2ｅ,１０ー０００２,１１ー０００２,１２ー０００２,3,4,１５ー０００２,6,17000002

出力
＊△は半角スペース
01,△△△△,01,4ｶﾅ-0001,５漢字－０００１,６,７年月-0001,８日付-0001,９－０００１,１０ー０００１,１１ー０００１,１２ー０００１,3,4,１５ー０００１,6,17000001
02,0002,△△,4ｶﾅ-0002,５漢字－０００２,６,７年月-0002,８日付-0002,９内容－０００2,１０ー０００２,１１ー０００２,１２ー０００２,3,4,１５ー０００２,6,17000002

        open IN2, "<:encoding(utf8)", "$input_FILE" or die;
        open OUT2, ">:encoding(utf8)", "$output_FILE" or die;

        while ( my $line2 = <IN2>) {
            # 改行を削除
            chomp $line2;

            # レコード前後の""を外す
            $line2 =~ s/^"//;
            $line2 =~ s/"$//;

            # 1レコード項目ごとに分割
            my @data2 = split(/,/, $line2);

            # レコードにnullが含まれている？
            if ( $line2 =~ undef ) {
                $line2 =~ s/$line2/ /g;
                print "nullがあったよ!\n";
            } else {
                print "nullないよ！\n";
            }

            print OUT2 join (",", @data2),"\n";

        }
        close IN2;
        close OUT2;

undefのところを\0にしても反応がありませんでしたが、undefは反応し、ディスプレイに表示もされましたが、出力ファイルにスペースが出力されておらず、判定のみで置き換えができていませんでした。よろしくお願いします。