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

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

my @lines=<$fh>; # alle Zeilen einlesen

seek($fh,0,0); # zum Anfang der Datei
truncate($fh,0); # Dateigrösse 0

# Zeilen bearbeiten
for my $line (@lines) {
  chomp($line);

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

  if ($line_array[1] == 45) {
   print $fh "success\n"; # Zeile ersetzen
  }
  else {
    print $fh "$line\n"; # unveränderte Zeile wieder in die Datei
  }
}

close ($fh);