#!/usr/bin/perl

use strict;

use HTML::TokeParser::Simple;

my $parser = HTML::TokeParser::Simple->new(handle => \*DATA);

my @dnldLinks;
my @month_year;
my @date;
my @data;
my $index;
my $contract;
while ( my $div = $parser->get_tag('div') ) {
        if($div->is_start_tag('div')){
        if($div->[1]{class} =~ 'Cell month-year')
        {
                my $time = $parser->get_trimmed_text;
                push(@month_year,$time);
        }
        if($div->[1]{class} =~ 'Cell Release Date')
        {
                my $time = $parser->get_trimmed_text;
                push(@date,$time);
                $index=$time;
        }
        if($div->[1]{class} =~ 'Mortgage Contract Rate')
        {
                my $time = $parser->get_trimmed_text;
                push(@date,$time);
                $contract=$time;
        }
        print "date : $index, data : $contract\n";
        }

}


#use Data::Dumper;
#print Dumper \@dnldLinks;


__DATA__
<div class='historicalChartTable'>
     <div class="Row Jun-2015">
                    <div class="Cell month-year ">
                        Jun-2015                    </div>
                                            <div class="Cell Release Date ">
                            2015-07-30                        </div>
                                                <div class="Cell National Mortgage Contract Rate ">
                            3.850                        </div>
                                        </div>
      class="Row May-2015">
                 <div class="Cell month-year even">
                      May-2015
                 </div>
                 <div class="Cell Release Date even">
                            2015-06-25
                </div>
                <div class="Cell National Mortgage Contract Rate even">
                            3.750
                </div>
          </div>

</div>