$counter = 0;
$textfile = "rfl.txt";

open (TEXT, "$textfile") || die "Con't Open $textfile";


@text=<TEXT>;
close(TEXT);
$glob = @text;

for($i=0; $i<$glob; $i++){
	$_ = @text[$i];
	if(/eid=/){
	$counter = 1 - $counter;
		print $_ if $counter;
	}
}