#!/usr/bin/perl
print '<TABLE>';
while(<>) {
　print '<TR>', (map{ '<TD>$_</TD>' } (split /,\s*/)), '<TR>';
}
print '</TABLE>';
==============================
と書いてみるテスト
>>3-4
確かに Excel だと一番早いね。