#!/usr/bin/perl

use warnings;
use strict;

# Zeilenanzahl ermitteln
open(my $fhZl, "<Test.txt") or die $!;
my $cnt = 0;
while(my $z = <$fhZl>) {
   $cnt = $.;
} # while
close($fhZl) or die $!;

# Die letzten 100...
my $zl = 0;
$zl    = $cnt - 100;

# Tab getrennt einlesen, Komma getrennt rausschreiben
# und zwar die letzten 100 Zeilen
open(my $fhEin, "<Test.txt")    or die $!;
open(my $fhAus, ">Ausgabe.txt") or die $!;

while(my $zeile = <$fhEin>) {

   if ($. > $zl) { # $. enthaelt die aktuelle Zeilennummer
      my @array  = ();
      @array     = split(/\t/, $zeile);
      print $fhAus join(",", @array[2..5])."\n";
   } # if

} # while

close($fhEin) or die $!;
close($fhAus) or die $!;

print "Fertig.\n";

1;