#!/usr/bin/perl
use strict;
use warnings;
my $file='test_values';

open (my $fh, '+>', $file) or die "ERR $file $!";

my @lines=<$fh>;

seek($fh,0,0); # zum Anfang der Datei

for my $line (@lines) {
  chomp($line);

  my @line_array = split (/\t/, $line);

  if ($line_array[1] == 45) {
    print "success\n";
  }
  else {
    print $fh "$line\n";
  }
}

close ($fh);