Saved:

You really ought to make your question a bit more complete and concise (see How To Ask Questions The Smart Way and I know what I mean. Why don't you?). And you really should use strict; and use warnings; in your code (though I don't know if they'll tell you anything useful in this case ... it's just a good habit to get into).

Anyway, my suggestion is to set the record delimiter to a blank line so each read will get one record. Then you can structure your code a bit more like:

my ($cnt_rex, $cnt_match) = (0, 0);
while (<XFILE>) {
    ++$cnt_rex;
    next unless /$SEARCH/i;

    ++$cnt_match;
    #.... do your processing here ....
}
[download]

...roboticus