my $content = $response->content();
my @content = "$content";

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

##</code><code>##

my $content = $response->content();
my @content;
$content[ 0 ] = $content;

my $introduction = grep( /Game Introduction - Marvel: Avengers Alliance/, $content[ 0 ] );
print $introduction;

##</code><code>##

my $content = $response->content();

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

##</code><code>##

my $content = $response->content();

my $introduction = $content =~ /Game Introduction - Marvel: Avengers Alliance/;
print $introduction;

##</code><code>##

my @introduction = grep /Game Introduction - Marvel: Avengers Alliance/, split /^/, $response->content();

print @introduction;