use strict; use LWP::Simple; print "What day?"; my $date = <>; my $url = 'http://staweb.sta.cathedral.org/departments/math/mhansen/public_html/1112hcal/1112hcal.htm'|| die "Specify URL on the cmd line"; my $html = get ($url); $html =~ m{4/23/012(.*?)