perl -wE ' my $remove = qr{<div><div class="blue"></div></div>};
my $str = q{</div></div><div><div class="blue"></div></div>};
say $str =~ s/$remove//r;'