#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
my $site="http://chart.yahoo.com/d?a=3&b=1&c=2003&d=3&e=11&f=2003&g=d&s=crio"; 
my $content=get $site;
my $message=$content;
$message=s/<[>]*>//g;
print $message;