while(<F>) 
         {
            chomp;
            if (/^<START/.../^<\/END/) {

               if ($_ !~ m/cool data/gi) 
               {
                 break this current START ... END block 
               }                     
            }   
         }