my @content = split /^/, $response->content();
my $introduction;
for my $line (@content){
  next unless ( $introduction ) ||= $line=~/Game Introduction - Marvel: Avengers Alliance/;
  my $EndSection = $line=~/<\/section>/;
  local $_ = $line; # Make a copy, so we do not modify @content..
  m|^\s*<[^/>]+>(.+)</| and $_=$1; # Zap tags on both sides, if any
  s|<[^>]+>||g;           # Zap single </onetag> tags
  print;
  last if $EndSection ;
}