#!perl -w
use strict;
use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new();
$mech->get('http://www.lcps.org/Page/2309');
my $cal_content= $mech->content;
while($cal_content=~m/"fc-event-title\s*ellipsis"(\s|\w)*>(.*?)<\/span>/g){
	print $2."\n";
}