Ako te kefi da si pravish progrmata slzno neefektivna - davai sus seek i truncate.
Slaed kato znaesh kakvo tutrsish (koi red):

$reg = rq/pattern_za_otkrivane_na_reda/;
s/$reg\n//mg while (<FH>)