Excel から タブ区切りに直す

Excelでつくられた表を処理しようと、タブ区切りに直してみた。
そうしたらば、セル内での改行がそのまま改行として認識され、改行されている（わかりにくい文章だ）。というわけで、タテに見ると、中がそろっていない。
よく見ると、セル内改行の部分は、" " でくくられている。というわけで、セル内改行の行は、" が片方である。それを利用して、各行の " の個数を2で割った余りで判別し、偶数なら改行をいれて奇数なら入れないということを編み出した。
が、セル内に3行以上書かれたものが存在し、そうすると、真ん中の行は、" が出てこないため、うまくいかなかった。
というわけで、それまでの " の個数について2で割り、判別をすることで対応。

#!/usr/bin/perl

my ($file_in) = shift @ARGV;

open (IN, $file_in) or die $!;
while (defined ($line_in = )) {
$line_in =~ s/[\r\n]//g;
$count = $line_in =~ tr/"/"/; # ← " の個数を勘定

$count_sum += $count;
$amari = $count_sum % 2;

if ($amari == 0) {
$line_out .= $line_in."\n";
}
else {
$line_out .= $line_in."|";
}
}
close (IN);

print $line_out;

さらしてどうする。