tie my @file, 'Tie::File', $file or die 'Could not open file';
for (@file) {

   if (/matching_line/) {
         I need to delete this matiching line
   }
}
untie @file;