#/usr/bin/perl -w 
use strict;
my $line;          # aktuelle Zeile      
my @linebuffer;    # Speicher für den Array der  zeile n-1 
my @workbuffer;    # Array der aktuelle Zeile 
open (IN,"_input_");

while ($line= <IN>)  # Zeilenweise lesen 
{
    @workbuffer = split (" ", $line);   # in array zerlegen 

    if (@linebuffer) {   # Test ob in der Zeile n-1 was erkannt wurde 
        if  ($workbuffer[1] eq "Sieger2"){
            print $linebuffer[1],"\t",$linebuffer[3],"\t",$workbuffer[1],"\n";
        }
        @linebuffer = undef;  # Zeile n-1 löschen  
    }

     if  ($workbuffer[3] eq "Jo"){
        @linebuffer = @workbuffer;
     }

}