#! /usr/local/bin/perl

foreach $f( <wk*>)
{   open f;
    print "-- $f \n";
    while( <f>)
    {   if( /<hr>/ || /<pre>/)
	{   do { $_ = <f>; } while /^[-\s]*$/;
	    chop;
	    s/ *[0-9].*//;
	    $away = $_;
	    $_ = <f>;
	    chop;
	    s/ *[0-9].*//;
	    $home = $_;
	    next;
	}
	if( /face=arial/)
	{   chop;
	    s=.*<b>==;
	    s=</b>.*==;
	    $date = $_;
	    next;
	}
	if( /referee.*trottier/i || /trottier.*linesman/i)
	{   print "$date $away at $home\n";
	}
    }
}