#!/usr/bin/perl
use strict;
use warnings;

my @merk;

while (<>) {
     if (/^t+$/) {
         <>;
         <>;
         <>;
         <>;
         <>;
         @merk = ();
     }
     else {
          push @merk, $_;
     }
     if ($#merk >=3) {
         print shift @merk;
     }
}
print for @merk;