#!/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;

##</code><code>##

Class: APMA 109 
Calculus I
Title = Schedule Number: 92861
Title = Section Number: 0001
Title = Credit Hours: 04.0
Title = Time: 0900-0950
Title = Day:MTWRFS: MWF
Title = Olsson Hall: OLS  011
Title = Instructor: Oberhauser, James P.
Title = Enrollment:Authorized/Actual: 55/2
Title = Grading Method: O
Title = Time: 0830-0920
Title = Day:MTWRFS: T
Title = Olsson Hall: OLS  005
Title = Instructor: 
Title = Schedule Number: 90063
Title = Section Number: 0002
Title = Credit Hours: 04.0
Title = Time: 1000-1050
Title = Day:MTWRFS: MWF
Title = Olsson Hall: OLS  120
Title = Instructor: Beck, Mary
Title = Enrollment:Authorized/Actual: 55/4
Title = Grading Method: O
Title = Time: 0830-0920
Title = Day:MTWRFS: R
Title = Olsson Hall: OLS  120
Title = Instructor: 

...

Class: APMA 111 
Single Variable Calculus
Title = Schedule Number: 93433
Title = Section Number: 0001
Title = Credit Hours: 04.0
Title = Time: 1100-1150
Title = Day:MTWRFS: MWF
Title = Olsson Hall: OLS  011
Title = Instructor: 
Title = Enrollment:Authorized/Actual: 55/55
Title = Grading Method: O
Title = Time: 0830-0920
Title = Day:MTWRFS: T
Title = Instructor: Castiglione, Jason

...