sub do_markup_table {
$_[0] =~ s{\[t\](.*)\[\/t\]}{do_table($1)}segm;
return $_[0];
}

sub do_table {

my @vals;
foreach (split /\n/, $_[0]) {
chomp;
next if length $_ < 1;
my ($day,$times) = split /:/, $_;
push @vals, qq|
<tr>
<td>$day</td>
<td>$times</td>
</tr>\n|
}

return qq|<table>| . join("",@vals) . qq|</table>|;
}

<%Plugins::ULTRAGlobals::do_markup_table($Description)%>