<& "/contenido/components/header.msn", title => 'XLS2HTML' &>
% if (!$code){exit;}
<![CDATA[<table border>
<tr>
<td><% $code %></td>
</tr>
</table>
<%args>
$code => undef
</%args>
<%init>
my $separator = "\t"; # разделитель ячеек
my $space = ' '; # этим заполняем пустые ячейки
my $arg_code = $code;
$code =~ s|$separator|</td><td>|g;
$code =~ s|[\n\r]+|</td>\n </tr>\n <tr>\n <td>|g;
$code =~ s|</td><td>|</td>\n <td>|g;
$code =~ s|<td></td>|<td>$space</td>|g;
</%init>]]></plaintext></div>