можно попробовать опережающую проверку

egr 09.06.2003 17:08 / 09.06.2003 17:12

$tbl[^строка.match[
^^ # начало строки
(.*)
(?!/[^^/]*) # после не может быть слеша
^S # конец строки
][x]]

в $tbl.1 будет весь текст до последнего слеша, дальше дело техники.

---