open (LOG, $file);
open (OUT, ">", $outf);

$/ = 50;

my $header = <LOG>;
print OUT $header;

while (<LOG>) {
	print OUT $_ if ($_ =~ /^\{\|\d{4}-\d{2}-\d{2}_\d{2}.\d{2}.\d{2}\|LOGIN/);
}
close LOG;
close OUT;