while (...) {
        open INFILE, '<', ...;
        my $buffer = do {local $/; <INFILE>};
        next if $buffer =~ /CLEAR/;
        ...
   } continue {
        close INFILE;
   }