#!/usr/bin/perl
$a = ""; while(<STDIN>) {$a = "$a$_";}
while ($a =~ /<tr>\s*<td class=\".*?\" height=\"25\"><strong>(\d{2}:\d{2})<\/strong><\/td>\s*<td style=\"text-align: right;\">\s*(|<strong>)\s*(|<a.*?>)\s*(|<strong>)\s*([^<>]*)\s*(|<\/strong>)\s*(|<\/a>)\s*(|<\/strong>)\s*<\/td>\s*<\/tr>/mig) {print "$1 -- $5\n";}