#!/usr/bin/perl -w

# I started this with Perl, but than move to PHP.
# Because the PEAR...

my $all;

open(HANDLE, '<export4.txt')
	or die("cannot open handle");

while (<HANDLE>) {
	$all .= $_;
};

@article = split("\x0d\x0a\x0c\x0d\x0a", $all);

=pot
@invalid = grep {!/cDatum:/} @article;
print scalar(@invalid);
print ">>" . $invalid[0] . "<<";
=cut

printf $article[120];

#@x = grep {/rozhodnutie:/} grep {/ivot/} @article;
#print $x[0];