#!/usr/bin/perl
use LWP::Simple;
my $source = get("http://www.time.com/time/");
my ($first) = ($source =~ /<!--([^<>]+)-->/);
print "Friday rocks!\n" if $first =~ /\bFri\b/;