use strict;
use LWP::Simple;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
$ua->timeout(120);
my $url='http://www.gamezebo.com/games/marvel-avengers-alliance/walkthrough';
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request);
my $content = $response->content();
my @content = "$content";

my $introduction = grep (/Game Introduction - Marvel: Avengers Alliance/, @content);
print "$introduction";

exit 0;