#!/usr/bin/perl
use 5.014;

use LWP::Simple;
print "What day? ";
my $date = <>;
chomp $date;
my $url = 'http://staweb.sta.cathedral.org/departments/math/mhansen/public_html/1112hcal/1112hcal.htm'|| die "Specify URL in the form 'm/dd/0yy'";
my $html = get ($url);
$html =~ m{$date(.*?)(?=</tr>)}gms;
print "$1 \n";