use warnings;
use strict;
use LWP::Simple;
my $site="http://www.earnings.com/fin/earnListing.jsp?tckr=&exch=&eff=&date=2003-05-04";
my $content=get $site;
my $message=$content;
$message=~s/<.+?>/ /g;
print $message;