print "{tr}{td width=700 align=left}{b}comments{/b}{/td}{/tr}";
for (my $j = 1;$j <= $return;$j++)
{
$mess_path = "$i\_$j";
&parse_message;
$pole_show =~ s/\n//g;
print "{tr}{td align=left}{nobr}$date_show from $name_show{marquee}$pole_show{/marquee}{/nobr}{/td}{/tr}";
....
Новый модный форум это клева