Perhaps this would be clear if I posted my current feeble attempt. Basically I just want the remainder of the file after a certain position. Mine does the job, I just wondered if theres a cleaner more elegant way.

#!/usr/local/bin/perl -w

open FH,"+<file_name" or die "go away";

@x = <FH>;

$keep_bit=0;
foreach (@x) {
    if (/^RE$/) {
        $keep_bit++;
    }

    if ($keep_bit) {
        push(@y,$_);
    }
}
seek (FH,0,0);
print FH @y;
truncate(FH, tell(FH));
close FH;
[download]

"We are all prompted by the same motives, all deceived by the same fallacies, all animated by hope, obstructed by danger, entangled by desire, and seduced by pleasure." - Samuel Johnson