#!/usr/bin/perl -w
use strict;
open TEXTDAT, '<', "text.txt" or die $!;
<TEXTDAT> for 0..4;
my $merker = '';
my @array;
while( <TEXTDAT> ) {
	chomp;
	my @daten = split /!/, $_;
	if($merker != $daten[1]) {
		$merker = $daten[1];
		$hits++;
		push @array, $merker;
	}
	
}
close TEXTDAT;