Удаление строки из уже открытого файла в perl

Question

У меня есть сценарий, в котором у меня есть файл, открытый модуль IO::File и добавление к нему строк.

При добавлении строк в файл, если выполняется определенное условие и соответствует шаблону, эта строка должна быть удалено.

Пример кода, который у меня есть:

my $dl = new IO::File( "/var/tmp/testfile", "a+" ) || die("Could not open: $!");
my @a = (1..10);
for (@a) {
  print $dl "$_ : Input line $_\n";
}
if ( file contains "Input line 6" ) {
  ## delete line from file
}
$dl->close;

Надеюсь, приведенный выше код представляет то, что мне нужно. Google показывает множество опций для чтения полного файла, удаления и перезаписи файла.

Я просто ищу способ удаления с уже открытым файлом.