use warnings;
use strict;

...

local $/ = "blabla";

while (<DATA>) {
    s/TEXT TO BE REMOVED// unless m/^5/;
    print;
    ...
}