open(INPUT,"C:\\temp\\input.txt");
my @content = <INPUT>;
close INPUT;

print scalar(@content) . "\n@content\n";

my $cleanedContent = map {
			chomp;
			m/^->.*/g;
	
			} @content;
print scalar(@cleanedContent) . " --> größe des cleanedContent\n";