while (<>) {
    chomp;
    @tmp = split(/\t/);
    $sarakenro = 0;
    for $sarake (@tmp) {
	if($sarake =~ /[,.](\d+)/ &&
           length($1) > $des[$sarakenro]) {
           $des[$sarakenro] = length($1); } 
        $sarakenro++; }
    push @data, [ @tmp ]; }
print "<table border=\"1\" cellspacing=\"0\"",
      " cellpadding=\"4\">\n";
for $rivi ( @data ) {
    print "<tr>";
    $sarakenro = 0;
    for $alkio (@$rivi) {
	if($alkio =~ /[,.](\d+)/) {
           for($i=length($1);$i<=$des[$sarakenro];$i++) {
	       $alkio = $alkio . "&nbsp;"; }}
	$alkio =~ s? ?</tt>&nbsp;<tt>?g;
	$alkio =~ s?\.?</tt>.<tt>?;
	$alkio =~ s?,?</tt>,<tt>?;
        $sarakenro++;
	print "<td align=\"right\"><tt>$alkio</tt></td>"; }
    print "</tr>\n"; }
print "</table>\n";