perl -wE ' my $remove = m/<div><div class="blue"><\/div><\/div>/;'

Use of uninitialized value $_ in pattern match (m//) at -e line 1.