#!/usr/bin/perl
# find calc homework

use strict;
use warnings;


use HTML::TreeBuilder;

my $date='4/27/012';		#set the date, you can do this dynamically

my $url= 'http://staweb.sta.cathedral.org/departments/math/mhansen/public_html/1112hcal/1112hcal.htm';

# get the page and make a tree structure out of it
my $tree= HTML::TreeBuilder->new_from_url($url);	

#break the table into rows
my @elements = $tree->find_by_tag_name('tr'); 		

#loop through the rows looking for the date
#and use the as_trimmed_text to get rid of all the extra htmlness
foreach (@elements){						
	if((my $hw=$_->as_trimmed_text())=~m%$date%){	
		print $hw."\n";
	}

}