#!d:/perl56/bin

use strict;

{
package HTMLParser;
use base "HTML::Parser";

sub text
	{
		my ($self, $origtext) = @_;
		$origtext =~ s/ //g;
		$self->{TEXT} .= $origtext;

		### Read through hash and test each line against array
		@field = qw (C 1B 2B 3B SS OF1 OF2 OF3 DH B1 B2 B3 B4 B5 B6 B7 B8 SP1 SP2 SP3 SP4 SP5 SW1 SW2 SW3 SW4 SW5 SW6 SW7 RP1 RP2 RP3 RP4 RP5 RP6 RP7 IR);

		my @test = split(/\s*[ ]/,$origtext);
		
		foreach $line (@field) {
			if ($test[0] eq $line) {
				print "$test[1]\n";		
			}
		}

	}
}

my $leaguefile = $ARGV[0];
open(DATAFILE1,"$leaguefile") || die "Cannot open test file";

my $sp = new HTMLParser;

while (<DATAFILE1>) {
	$sp->parse_file($_);	
}
$sp->eof;

close DATAFILE1;