##

First green = line 6 to 10
Second green = line 15 to 17


##

##

#!/usr/bin/perl

use warnings;

open (GREEN,"data.txt");
open (WHITE,"data.txt"); 	
$/ = "";

$counter_white = 0;
$counter_green = 0;

#----------------count number of green---------------------
while ($line_green = ) 
{
	if ($line_green =~ /<\/td>/){$counter_green++;}
}


#------count number of white (before any green occur)-------------
while ($line_white = ) 
{
	if ($line_white =~ /<\/td>/){$counter_white++;}

	if ($line_white =~ /<\/td>/){last;} 	# escape when green starts
}

#---------------------------------------

print "white = ".$counter_white."\n";
print "green = ".$counter_green."\n";

$beginning = $counter_white + 1;
$end = $counter_white + $counter_green;

print $beginning."\n";	# start of green
print $end."\n";	# end of green

print "The result starts from ".$beginning." to ".$end."\n";

close (GREEN);
close (WHITE);