#! /usr/bin/perl

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

my $suchen = 'Test1';
my $file = '/path/to/file.txt';
tie my @array,'Tie::File',$file or die $!;
@array = grep{!m/^"\Q$suchen\E"/}@array;
untie @array;