use strict;
use warnings;
use HTML::TokeParser::Simple;

my $parser = HTML::TokeParser::Simple->new('file.html');

my $print = 0;     # so we'll know when to start printing
my $count = 0;     # need a 'stack' to keep track of div tags

while (my $token = $parser->get_token()) {

   if ($token->is_start_tag('div')) { 
      $print = 1 if $token->return_attr()->{class} eq 'Content';
      $count++;
   }

   print $token->as_is() if $print;

   if ($token->is_end_tag('div')) { 
      $count--;
      last if $count == 0 and $print == 1;
   }
}