#!/usr/bin/perl

use HTML::TokeParser;
use strict vars;

my $file = 'APMA.txt';
my $stream = HTML::TokeParser->new($file);
my $tok;

while( $tok = $stream->get_token) {
    if( $tok->[1] eq 'a' && $tok->[2]{'href'} =~ m/course_nbr/ ) {
        print "Class: " . $stream->get_text('/a') . " ";
    }
    if( $tok->[1] eq 'span' && exists($tok->[2]{'class'}) && $tok->[2]{'class'} eq "title") {
        print $stream->get_text('/span') . "\n";
    }
    if( $tok->[1] eq 'span' && exists($tok->[2]{'title'}) && !exists($tok->[2]{'class'}) ) {
        print "Title = $tok->[2]{'title'}: ";
        print $stream->get_text('/span'), "\n";
    }
}

exit;