#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = "./test.txt";
my $index;

open(FILE,"<$file") or die $!;
while(my $line = <FILE>){
  $index = $. if($line =~ /NOID/);
}
close FILE;

if(defined $index){
  tie my @array,'Tie::File',$file or die $!;
  splice(@array,$index-1,4);
  untie @array;
}