use strict;
use warnings;

use Test::More tests => 2;

my $input    = '</div></div><div><div class="blue"></div></div>';
my $expected = '</div></div>';
my $remove   = '</div><div><div class="blue"></div>';

like ($input, qr/$remove/, 'Match found');    # Just for illustration
$input =~ s/$remove//;
is ($input, $expected, 'Strip successful');